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INTRODUCCION === 


A aparición de los ordenadores personales ha sido segui- 
da por su impresionante proliferación, debida al abarata- 
miento de los materiales, lo que ha traído consigo el que 
se vaya introduciendo en el hogar, con la posibilidad de 
utilizarlo, tanto para distraer los ratos de ocio jugando 
como para realizar otras aplicaciones de tipo práctico: es- 
cribir pequeños o grandes programas para realizar con- 
troles domésticos, etc. Si nos paramos a pensar, esto no 
se aplica sólo a los mayores y jóvenes, sino también a los 
pequeños, que poco a poco pueden realizar sus pequeñas aplicaciones. 

A veces la tentación de probar y ver hasta dónde es uno capaz de ser 
habilidoso es sumamente emocionante. Naturalmente existe un enorme 
número de formas de realizar las aplicaciones en el ordenador. Nosotros, 
en este libro, nos vamos a referir al control doméstico y para ello utiliza- 
remos un lenguaje sencillo para el lector. 

Existen distintos lenguajes para realizar el control de las operaciones 
contables, como pueden ser: 


Assembler 
Basic 
Pascal 
APL 


En este libro vamos a introducir ejemplos en Basic y Pascal, por ser és- 
tos los más corrientes en los diferentes ordenadores existentes en el mer- 
cado y cuyos compiladores e intérpretes son muy asequibles. 

El objeto de este libro de Contabilidad Casera o doméstica no es otro 
que introducir al lector poco a poco en un procedimiento que le permita 
llevar su control doméstico. Por ello, voy a tratar de iniciarlo con un cri- 
terio eminentemente didáctico, pensando en aquellas personas que deseen 
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adquirir conocimientos contables básicos, primero y sobre todo para sa- 
ber el terreno que pisan. 

Por consiguiente, nuestra enseñanza de esta materia comienza expli- 
cando qué es y para qué sirve la Contabilidad, partiendo del supuesto de 
una familia cuyo patrimonio experimenta diversas variaciones como con- 
secuencia de las operaciones comerciales que realiza, operaciones que de- 
ben ser captadas por la Contabilidad, a través de los registros correspon- 
dientes, que se irán explicando paso a paso, de forma que el lector vaya 
avanzando en el conocimiento contable como por una suave rampa sin es- 
calones de difícil ascensión. 


CONTABILIDAD, PATRIMONIO 
E INVENTARIO == 


N este primer capítulo vamos a establecer las bases de 
la Contabilidad, para lo cual veremos qué es y para qué 


sirve. Vamos, pues, a comenzar definiendo qué es Con- 
tabilidad. 


CONTABILIDAD 


Es la ciencia del control de los negocios. 

Ampliando esta definición podemos decir que el control de los negocios 

consiste: en registrar las variaciones que experimenta el patrimonio (en 

este caso de la familia) y en determinar la clase y cuantía de las ganancias 
o pérdidas que se obtienen. 

La contabilidad puede dividirse para su mejor estudio en varias ramas: 


Contabilidad General 


y 
Contabilidad Aplicada 


Objetiva Subjetiva 
Contabilidad de Empresas Contabilidad de Sociedades 
Seguros, Banca Anónima, Limitada, 
Transportes en Comandita 


Contabilidad Contabilidad 
Externa o Interna o 
Financiera Analítica 


Nosotros ahora sólo vamos a tratar de la Contabilidad General, que com- 
prende los principios básicos, elementales y fundamentos de la Ciencia 
Contable. 

Como modelo práctico vamos a desarrollar la contabilidad de una fa- 
milia, registrando las variaciones que se producen en su «PATRIMONIO» 
como consecuencia de las operaciones que realiza, determinando también 
las ganancias o pérdidas que obtiene de acuerdo con lo expresado en la 
definición de Contabilidad. 

Hemos hablado antes del Patrimonio y lo hemos entrecomillado. ¿Qué 
es el Patrimonio? 
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PATRIMONIO 


Es el conjunto de bienes, derechos y obligaciones que pertenecen a una 
persona y que pueden valorarse en dinero. 


El patrimonio consta de dos partes: 


Una, que podemos llamar positiva y que recibe el nombre de «ACTI- 
VO», y otra negativa, que denominamos «PASIVO». 


ACTIVO 


Es el conjuto de bienes y derechos que posee una persona y que puede 
valorarse en dinero. 


Bienes. Son todos aquellos objetos y productos que, teniendo un va- 
lor en dinero, pertenecen a una persona, o sea, forman parte de su Patrimo- 
io. 


[a] 


Derechos. Son créditos o deudas a favor de la persona contra otras, ex- 


presados en dinero y que, lógicamente, también forman parte de su Patri- 
monio. 


PASIVO 


Es el conjunto de obligaciones a cargo de la persona y a favor de otras 
personas, que pueden valorarse en dinero. 


Obligaciones. Son deudas contraídas por la persona con otras. 


00 


La diferencia entre la parte positiva y la negativa del patrimonio, es de- 
cir, entre el Activo y el Pasivo, recibe el nombre de: 


Capital Líquido o Capital Neto 
o también 
Patrimonio Líquido o Neto 


Al comparar el ACTIVO con el PASIVO pueden darse los siguientes ca- 
sos: 


a) Existe Activo, pero no existe Pasivo. En este caso el Activo es el pro- 
pio Capital. La persona no debe nada. 

b) El Activo es superior al Pasivo. Esto es lo normal. La diferencia es 
positiva, la persona debe parte de lo que tiene. 

c) El Activo es igual al Pasivo. En este caso la persona debe todo lo 
que tiene. 

d) El Activo es inferior al Pasivo. En este caso la diferencia es negati- 
va y significa que la persona debe más de lo que tiene. 

e) No existe Activo, pero existe Pasivo. En este caso la persona debe 
todo y no tiene nada para hacer frente a sus deudas. 


Cuando una persona comienza a registrar sus Operaciones con el siste- 
ma que más adelante iremos indicando, lo primero que tiene que hacer es 
saber con qué medios cuenta para llevar adelante su CASA, para lo cual 
establece el correspondiente INVENTARIO. Vamos, pues, a definir qué es 
un INVENTARIO. 
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INVENTARIO 


Es la relación detallada y ordenada de su PATRIMONIO. No debe con- 
fundirse PATRIMONIO con INVENTARIO. 


— El Patrimonio es un conjunto de bienes, derechos y obligaciones. 
— El Inventario es la relación de esos bienes, derechos y obligaciones. 


Al igual que el Patrimonio, el Inventario (que es su fiel reflejo) estará 
dividido en ACTIVO y PASIVO. 


Desde un punto de vista formal, el Inventario consta de: 


Encabezamiento 
Cuerpo 


<< 


Pie 


Encabezamiento: 


Consiste en una frase introductoria con el siguiente contenido: «In- 
ventario n.* . del Capital activo, pasivo y líquido de D....................... ; 
domiciliado en ......... , efectuado en fecha ..». 


Cuerpo: 


Es la parte central del Inventario y, por tanto, la más importante, 
pues en ella se detalla el Activo, Pasivo y Capital líquido. 


Pie: 


Parte última del Inventario, que consiste simplemente en un epilo- 
go, cuyo texto puede ser: «De acuerdo con el presente inventario, mi ca- 
pital líquido al día de la fecha asciende a pesetaS ooo 


Fecha y firma. | 


A AA 


Veamos ahora, con un ejemplo práctico, cómo se forma el inventario 
que puede dar comienzo a nuestros registros de las distintas operaciones 
que vayamos haciendo día a día. Para ello, en primer término, efectuemos 
un examen de los bienes, derechos y obligaciones que tenemos, es decir, 
el patrimonio, y les asignaremos los nombres que más usualmente reci- 
ben los apuntes contables de dichos bienes, obligaciones y derechos. 


Supongamos una familia que tiene: 


Nombre contable 


50.000 ptas., en dinero efectivo. Caja. 
200.000 ptas., depositadas en Banco. Banco. 
60.000 ptas., en objetos vendibles. Mercaderías. 
120.000 ptas., valor de un mueble. Mobiliario y enseres. 
840.000 ptas., un vehículo. Elementos de transporte. 
6.450.000 ptas., valor de un piso en propiedad. Edificio e inmuebles. 
DERECHOS 
45.000 ptas., en recibos por cobrar. Efectos comerciales. 
24.000 ptas., le adeudan por ventas. Clientes. 
15.400 ptas., le adeudan. Deudores. 
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OBLIGACIONES 


50.000 ptas., en recibos pendientes de pagar. | Efectos a pagar. 


20.000 ptas., debe por compras. Proveedores. 
780.000 ptas., debe de otros conceptos. Acreedores varios. 


Ahora con estos datos podemos efectuar el Inventario correspondien- 
te, pero antes hay que hacer las advertencias siguientes: 


a) Los bienes y derechos irán ordenados de mayor a menor disponi- 
bilidad, entendiéndose por disponibilidad el grado de facilidad que tienen 
para realizarse en dinero. 

b) Dentro de cada elemento de los que forman el inventario hay que 
detallar las partidas que lo componen; no basta, por ejemplo, poner 
CLIENTES ... 24.000, hay que detallar el nombre de cada cliente con el im- 
porte de su deuda respectiva. 


Inventario núm. 1 del Capital Activo, Pasivo y Líquido de la familia de esta plaza 
don Antonio Gosta Pérez, domiciliado en la calle de la Montera, 45, de Madrid, 
efectuado en el día de la fecha: 


e 
50.000 
dinero efectivo, según arqueo 50.000 
BANCOS 200.000 
saldo en c/c Banco Hispano 100.000 
saldo en c/c Caja Postal 100.000 
EFECTOS COMERCIALES 45.000 
recibo a cargo de Comercial X, vto. 3-4-86 45.000 
CLIENTES 24.000 


Xiuz Martínez, industrial 24.000 
DEUDORES 15.400 
15.400 


MERCADERIAS 60.000 
80 cintas. de clase:x, ¡a 500 ptas. ..o.ccsmasos nas 40.000 
10:cintas. de clase Y, 22.000. PtáS.. 0. oa e oe 20.000 
ELEMENTOS de TRANSPORTE 840.000 
coche Ford 840.000 
MOBILIARIO y ENSERES 120.000 
equipo de música 120.000 
EDIFICIO e INMUEBLES 6.450.000 
Chalé en Colmenar del Arroyo 4.000.000 
Piso en la calle de Bordadores 2.450.000 


Total activo 7.804.400 | 7.804.400 
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Parciales | Totales 


PASIVO 


EFECTOS A PAGAR 


50.000 


recibo girado por Comercial y vto. 3-5-86........ 50.000 
PROVEEDORES: aso ia a 20.000 
O 20.000 
ACREEDORES VARIOS. 00m 780.000 
Cedro Perez odo 280.000 


GOMEZ CASO A A a as 500.000 


cal ade 850.000 | 850.000 


RESUMEN 
Total Activo 7.804.400 
Total Pasivo 850.000 
Capital Líquido 6.954.400 


De acuerdo con el presente inventario, el capital líquido al día de la fecha as- 
ciende a 6.954.400 pesetas. 


Madrid, 10 de noviembre de 1986 


Antonio Costa Pérez 


Hemos visto un modelo de Inventario con todo género de detalles, 
como debe hacerse en la vida real; no obstante, para la práctica de los ejer- 
cicios contables, y con objeto de facilitar su comprensión, suele emplear- 
se una forma resumida de Inventario en la que sólo constan los elementos 
que componen el Activo y el Pasivo, así como la diferencia entre ambos, 
el Capital líquido, sin detallar las partidas. 

Con objeto de acostumbrarse a esta forma resumida de Inventario, a 
continuación vamos a repetir de manera extractada el inventario anterior. 
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ACTIVO 
CAJA ooo e a Rs A as 50.000 
O 200.000 
EFECTOS: COMERCIALES: evocar as 45.000 
COTENTES a aa 24.000 
A 15.400 
MERCADERÍAS. arvsmcssiias raid Boada date ear aos ear 60.000 
ELEMENTOS:de TRANSPORTE 5064000 caia aaa 840.000 
MOBILTARIO YiENSERES iia sii sa apo 120.000 
EDIFICIO: INMUEBLES: sardina 6.450.000 


Total ACV a A a a a O a 7.804.400 


50.000 
20.000 
780.000 


850.000 


RESUMEN 


Total Activo 7.804.400 
Total Pasivo 850.000 


Capital Líquido 6.954.400 
Madrid, 10 de noviembre de 1986 


Aclaremos algunos conceptos que hemos empleado en el Inventario 
que precede (completo y resumido), sin perjuicio de que posteriormente 
volvamos sobre lo mismo. 

En primer lugar, Clientes y Deudores son ambas cuentas que quieren 
decir que nos deben dinero, pero mientras las deudas de los Clientes son 
por mercancías compradas que aún no han pagado, las deudas de los Deu- 
dores son por cualquier otro concepto distinto de la compraventa de mer- 
cancías. 

Los Acreedores y Proveedores (a ambos les debemos dinero), pero 
mientras las deudas con los Proveedores son por mercancías vendidas que 
aún no se han pagado, las deudas a los Acreedores son por cualquier otro 
concepto distinto del de la compraventa de mercancías. 

Otro término que ha aparecido en el inventario es el de «arqueo». El 
arqueo consiste en contar las monedas y billetes que poseemos para com- 
probar que su «existencia» coincide con los apuntes contables. 

Hasta ahora hemos visto cómo se forma un Inventario, lo que es el pun- 
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to de partida o arranque, pero una vez se ha dado comienzo, empieza a pro- 
ducirse una serie de operaciones de la vida normal, como, por ejemplo: 


Compras 

Ventas 

Cobros 

Ingresos 

Retirada de fondos 
ete: 


que tienen que ser registradas por nuestra Contabilidad (recuérdese que 
uno de sus objetivos es registrar todas y cada una de las variaciones que 


experimente nuestro Patrimonio), y que reciben el nombre de HECHO 
CONTABLE. 
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HECHOS CONTABLES 2 


ON las operaciones mercantiles efectuadas por la perso- 
na, que aparecerán como un registro en su Contabilidad. 
Los Hechos se pueden dividir en: 


Permutables 
Modificables 


Mixtos 


PERMUTABLES 


Son aquéllos que producen una variación entre dos o más elementos 
del Patrimonio, sin que se altere su situación (Capital Líquido). 

Por ejemplo: Supongamos que la persona compró un equipo de músi- 
ca por 120.000 pesetas y las paga al contado. Es evidente que el equipo 


tal líquido. 


a través del dinero existente en el Banco. En este caso sería una disminu- 


MODIFICABLES 


Son aquéllos que modifican la cuantía del CAPITAL líquido sin que se 
produzca una permutación de los elementos patrimoniales. Pueden ser au- 
mentativos o disminutivos, segun la variación que se produce. 


ES 


Por ejemplo: Supongamos que el Banco nos anuncia que abona en 
nuestra cuenta, en concepto de intereses, 1.000 pesetas. Nos hallaremos 
ante un Hecho modificativo aumentativo, ya que el elemento Banco de 
nuestro patrimonio aumenta sin disminuir el PASIVO, con lo cual aumen- 
ta nuestro CAPITAL. 

Supongamos ahora que el equipo de música se nos rompe y la repara- 
ción nos cuesta un valor de 3.000 pesetas. 

Este hecho también modifica, pero en signo contrario, disminuyendo 
nuestro ACTIVO, con lo cual nuestro CAPITAL también quedará dismi- 
nuido. 


MIXTOS 


Son aquellos que a la vez tienen carácter permutable y modificable, es 
decir, que producen variación entre dos o más elementos patrimoniales y 
al mismo tiempo alteran la cuantía del Capital. Este es el caso cuando ven- 
demos en 140.000 pesetas nuestro equipo de sonido. Esto quiere que per- 
mutamos dos elementos de nuestro Patrimonio con distinto valor, con lo 
cual nuestro Capital queda alterado, puesto que recibimos 20.000 pesetas 
más por el equipo. 
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LA CUENTA es 


N el capítulo anterior hemos aprendido a reflejar, median- 
te inventarios, las variaciones que experimenta el Patri- 
monio de la supuesta familia a causa de las operaciones 
comerciales o de la vida cotidiana. 


Como fácilmente se puede suponer, sería laboriosísimo 
en la práctica realizar un Inventario cada vez que la fami- 
lia efectúe una transacción comercial, por lo que hemos 
de emplear otro método para registrar los Hechos conta- 
bles que se produzcan en su desenvolvimiento diario. 


Este método recibe el nombre de Partida Doble y se instrumenta a tra- 
vés de las Cuentas. 


Vamos, por tanto, a empezar definiendo qué es una CUENTA. 


IN 


CUENTA 


Llamamos cuenta de estado detallado de las distintas variaciones que 
experimenta un determinado elemento del patrimonio, o bien una deter- 
minada pérdida o ganancia. 


Por tanto, para cada elemento patrimonial y para cada clase de pérdi- 
da o de ganancia abriremos y llevaremos una Cuenta, en donde registra- 
remos las distintas variaciones que experimenta dicho elemento patrimo- 
nial, o bien las pérdidas o ganancias que se produzcan. 


EL libro donde figuran todas las cuentas que necesitemos para llevar 
el control de nuestro hacer familiar recibe el nombre de LIBRO MAYOR. 


Nosotros nos referiremos a él como MAYOR, simplemente. Una cuen- 
ta tiene un aspecto formal, esto es, que presenta dos partes llamadas DEBE 


1.2 


y HABER, por lo que se establece a doble folio (entradas y salidas). Cada 
parte consta de los siguientes componentes: 


Fecha (día mes año) dd mm aa 
Concepto o contrapartida 
Referencia 

Cantidad parcial 

Cantidad total 


Vamos a presentar un modelo rápido de cuenta para una mejor com- 
prensión. En la parte superior se coloca el título de la cuenta, que es el 
nombre del elemento patrimonial. 


Debe Título Haber 


Fecha Concepto Ría. | Ptas.| Fecha| Concepto . | Ptas. 


Rfa.: es el número de documento que produce el movimiento. 


Al igual que ocurre con el Inventario, como se vio para la práctica de 
los ejercicios contables, se emplea un rayado simplificado de la cuenta, 
consistente en una especie de «T» mayúscula gigante, en la que sólo se co- 
loca las cantidades que correspondan al DEBE y al HABER, en la parte su- 
perior el título de la cuenta y a lo sumo las letras «D» y «H» como abre- 
viatura de las palabras Debe y Haber. 


D Título H 
Cantidades Cantidades 
del del 
Debe Haber 


Cuando se pretende un ejercicio contable con todo género de 
detalles y, por supuesto, cuando se trata de la Contabilidad real, se emplea 
el modelo completo descrito en primer lugar. 


ANOTACIONES 


En la cuenta, como ya hemos dicho, las anotaciones en ella pueden efec- 
tuarse en el Debe o en el Haber. 
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— Anotar una partida o cantidad en el Debe significa: 


Adeudar 
Cargar 
Destinar 
— Anotar una partida o cantidad en el Haber significa: 


Abonar 
Acreditar 
Originar 


Gráficamente podemos representar lo anterior de la siguiente forma: 


D Título H 
Adeudar Abonar 
Cargar Acreditar 
Destinar Originar 


SALDO DE LA CUENTA 


Es la diferencia entre la suma de las partidas anotadas en el Debe y la 
suma de las cantidades anotadas en el Haber. 


— Si la suma del Debe es mayor que la del Haber, el saldo es Deudor. 

— Si la suma del Haber es mayor que la del Debe, el saldo es Acreedor. 

— Si la suma de las partidas del Debe es igual a la suma de las partidas 
del Haber, se dice que la cuenta está SALDADA. 


Para registrar las partidas en las cuentas, se deben seguir los criterios 
que a continuacion detallamos: 


En el Debe se anotarán: 


Los importes iniciales y los aumentos, entradas o destinos de los ele- 
mentos de ACTIVO (bienes, derechos, mobiliario, Caja...), las cancelacio- 
nes o disminuciones de los elementos PASIVOS (Obligaciones...); los Gas- 
tos y Pérdidas 


En el Haber se anotarán: 


Las disminuciones, salidas u orígenes de los elementos de ACTIVO (bie- 
nes, derechos, etc.), los importes iniciales y los aumentos de los elemen- 
tos de PASIVO (Obligaciones); 

el Capital, los Beneficios. 


19 


Vamos a representar gráficamente las normas expuestas: 


D Título H 
Importes iniciales Importes iniciales 
Destinos de Activo Obligaciones 

Gastos Aumentos de Obligaciones 


Pérdidas Salidas u orígenes de Activo 
Disminución de Capital 
Obligaciones Beneficios 


Teniendo en cuenta estos criterios, vamos a registrar en las cuentas los 
importes iniciales de un inventario de la familia en un momento del tiem- 
po, en detalle y resumido: 


IN A 
ACTIVO 

CATA ES la 120.000 
Cabeza de familia 0 ida ida 40.000 
Amadala casa Sean 80.000 

O A a a ER 350.000 
BIH-Mexicanos ss ida 150.000 
CAJA ROSAL sis aa ara esa 200.000 

MOBILIARIO 7S At ser 1.500.000 
Equipo de Sonido. oras 1 seno 250.000 
TESTO e Toa 90.000 
A A 100.000 
Muebles E eo 1.060.000 

INMUEBEES ao aida a dE Re TORO 6.500.000 
PISO EDT dá 2.300.000 
A A E 4.200.000 

GASTOS DE¡CGASA aa ate US OE aaa dao 80.000 
ROPA iu. atan as as o 50.000 
Calzado ad dde Eta JO 20.000 
LIDO cis al DA 10.000 

Total ACV RENA. eE ein 8.550.000 
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PASIVO 


ACREEDORES ans ptes le tada aos 80.000 
Visa Bostal! sao ateos aaa 10.000 
ElNConte Tc aa oioid uren 50.000 
Galerias AMISOS 0 voii 20.000 

PRESTAMOS: aio usado asalta a lola 4.000.000 
Caja-Postal. cons soeces 3.500.000 
BH MexicadnO naa. mato dia 500.000 

HIPOTECAS 00 nia olle 2.000.000 

Total Pasivo 0 sn tala ala aleta 3 6.080.000 

RESUMEN 

DotaltActiVO ue as a diia 8.550.000 

A 6.080.000 

Capital Líquido crestas ona 2.470.000 


Veámoslo, resumido, el mismo inventario: 


ACTIVO 


MOBIEARIO A E o e EUA EOS oe .500. 

INMUEBLES o A AS do ETA aro o 6.500.000 

GASTOS DEMCAS A a to aaala elo vio ed ads e 80.000 
MA A 8.550.000 

PASIVO 

ACREEDORES A ÍN oE 80.000 

PRESTAMOS O E RS RS 4.000.000 

FTPLOTECASA a ra a a asta ER NO 2.000.000 


Total Pasivo e ES ode 


ToOtalAcivO A o iia: 8.550.000 
RA O EAN 6.080.000 


O UI e 2.470.000 
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Vamos a hacer un inciso para definir las cuentas que sirven para reco- 
ger solamente el movimiento de los elementos de Activo y Pasivo, sin in- 
cluir resultados. 


CUENTAS INTEGRALES (O DE VALORES) 


Son aquéllas que sirven para registrar las variaciones que experimen- 
tan los distintos elementos del Patrimonio a los cuales controlan. Pueden 
ser de ACTIVO o de PASIVO, según que los elementos controlados sean 
bienes y derechos u obligaciones. 

Empezaremos por los elementos del ACTIVO. A cada uno de ellos le 
abriremos una cuenta y colocaremos en el DEBE de la misma el importe 
que figura en el estadillo anterior: 


D Cabeza de familiaH  D Amade Casa H D B.H.M. H 


40.000 80.000 150.000 


C. Postal H D BE.desonido H Televisión 
+. 000 250.000 90.000 
D BE.devídeo H Piso Chalé 
100.000 y 300.000 ” 200. MR 
Muebles Libros Calzado H 
Sy 060.000 10.000 20.000 
D Ropa 


50.000 


Surge ahora, en la mayoría de los lectores que comienzan a estudiar la 
Contabilidad, una duda que se traduce en una sencilla pregunta y que qui- 
zá al lector también se le haya ocurrido: 

¿Por qué todo lo que poseemos o tenemos lo ponemos en el Debe? Más 
concretamente: ¿por qué el dinero que poseemos, representado por la 
cuenta de Caja, se coloca en el Debe? 
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¿No sería más lógico anotarlo en el Haber, dejando el Debe para regis- 
trar lo que debemos? 

Aparentemente este razonamiento tiene su lógica, pero si profundiza- 
mos en el significado de las cuentas veremos que es falso. 

La cuenta de Caja no representa a la familia (sujeto Contable), sino que 
por el principio de personificación podemos suponer que representa al 
«Cajero» a quien hemos entregado para su custodia el dinero que posee- 
mos, por lo que dicho Cajero es responsable del mismo y debe ese dinero 
a quien se lo ha entregado. 

En la práctica el sujeto contable (familia, por ejemplo) puede ser a la 
vez cajero, pero a efectos contables se consideran separadas dichas funcio- 
nes. 

Si nos fijamos, por ejemplo, en la cuenta de Bancos, la cual represen- 
ta y controla el dinero que tenemos depositado en la entidad de crédito, 
aquí se ve claro que el Banco debe al sujeto contable el dinero que éste 
le ha depositado. 

Las restantes cuentas representan y controlan a sus respectivos elemen- 
tos patrimoniales, que pueden personificarse en sus correspondientes res- 
ponsables. Por tanto, DEBEN sus importes a quienes les ha entregado es- 
tos bienes para su custodia y administración. 

Otra duda surge ahora con su correspondiente pregunta: si las CUEN- 
TAS representan a los elementos patrimoniales y no al sujeto contable, ¿no 
figura entonces dicho sujeto contable en los apuntes contables?, ¿no tie- 
ne alguna cuenta que lo represente? La respuesta es SÍ. Tiene una cuenta 
que le representa, a la que llamaremos CAPITAL y en la cual colocaremos 
en su Haber todo lo que tiene, es decir, la suma de los bienes y derechos 
que hemos anotado en el Debe de sus respectivas cuentas, o sea, el total 
del ACTIVO. 


D Capital H 


8.550.000 


Como podemos observar, los importes iniciales de los elementos de ac- 
tivo los hemos anotado en las dos partes contrarias en que se divide una 
cuenta. 

Por un lado, en el Debe de sus correspondientes cuentas y, por otro, 
en el Haber de la cuenta que representa al sujeto contable, o sea, el CAPI- 
TAL. 

Al principio de este capítulo hemos hablado del método de Partida Do- 
ble. Trataremos de definirlo a continuación. 


23 


PARTIDA DOBLE 


Sistema de Contabilidad consistente en apuntar o registrar las opera- 
ciones efectuadas en el Debe de una o varias cuentas y en el Haber de otra 
u otras varias, teniendo que ser igual el total adeudado al total acreditado. 

Por esta razón recibe también el nombre de sistema digráfico. 


Principios de la Partida Doble 


1. El importe que se adeuda en una o varias cuentas (destino) ha de 
ser igual al abonado en una u otras varias cuentas (origen), y viceversa. 

2. No hay deudor sin acreedor o no hay destino sin origen. Por con- 
siguiente, siempre que se adeuda a una cuenta, necesariamente hay que 
acreditar por el mismo valor otra cuenta. 

3. Toda cuenta que recibe o todo lo que entra es deudor, y toda cuen- 
ta que entrega o todo lo que sale es acreedor. 


Como se verá, en las anotaciones de los importes del Activo hemos apli- 
cado los principios de la Partida Doble, principios que continuaremos apli- 
cando en las anotaciones de los importes iniciales del Pasivo y las sucesi- 
vas Operaciones. ' ; 

Antes de seguir adelante queremos remachar dos conceptos que hemos 
utilizado anteriormente en este capítulo: Sujeto Contable y Principio de 
personificación. 


Sujeto Contable 


Llamado también a veces «sujeto económico», es la familia, el comer- 
ciante, la empresa, etc., dueño del negocio, actividad familiar, etc., de cuya 
contabilidad estamos hablando. 


Principio de personificación 


Es aquél en virtud del cual todas las cuentas se consideran personifi- 
cadas y, por tanto, son capaces de recibir o entregar, aplicándoselas el ter- 
cer principio de la Partida Doble expresado anteriormente. 


N 
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Una vez registrados los importes iniciales del Activo vamos a anotar en 
las cuentas los importes iniciales de todos y cada uno de los elementos del 
Pasivo. 

Para ello, a cada elemento le abriremos su correspondiente cuenta y 
colocaremos en el Haber de la misma el importe que figura en el inventa- 
rio: 


D Visa postal H  D ElCorte Ing H  DGalerías Amigos H 


10.000 50.000 | 20.000 


D Caja Postal H  DB.H.MexicanoH  D Hipoteca H 


500 500.000 2.000.000 


Todas estas cuentas representan deudas u obligaciones de la familia SU- 
JETO CONTABLE, por lo que, de acuerdo con los principios de la PARTI- 
DA DOBLE, tenemos que adeudar el total de estos importes en la cuenta 
representativa de dicha familia (sujeto contable). 


D Capital H 


6.080.000 | 8.550.000 


Por tanto, mientras en el Haber de la cuenta de CAPITAL se registra el 
total del Activo, en el Debe se anota el total del Pasivo. 

Estas anotaciones pueden simplificarse anotando la diferencia o CAPI- 
TAL Líquido en el Haber de la cuenta de Capital, conforme indicamos ante- 
riormente. 

Esta es la forma que se utiliza normalmente en la realidad práctica. En 
este caso la cuenta de Capital quedaría así. 


D Capital H 


2.470.000 


Cumpliéndose también el principio de la Partida Doble, ya que el total 
adeudado en las cuentas de Pasivo y Capital. 

¿Por qué se anotan en el Haber los importes iniciales de las cuentas de 
Pasivos del Patrimonio?, en nuestro préstamo Caja Postal, Galería Amigos, 
han de haber, han de recibir de la familia los importes que ésta les debe. 
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APUNTES EN LA CUENTA 4 


CABAMOS de ver en el capítulo precedente el uso de las 
cuentas para registrar en las mismas cada uno de los im- 
portes iniciales. Vamos a dar un paso más y estudiar en 
este capítulo cómo se registran en las cuentas las opera- 
ciones sucesivas que realiza la familia en el transcurso de 
su vida cotidiana. 

Para ello, lo primero que tenemos que hacer es anali- 
zar los Hechos Contables para determinar la forma correc- 
=== ta de contabilizarlos, es decir, de anotarlos en las cuentas. 
Este examen recibe el nombre de Análisis Precontable, el cual consiste en 
el estudio del Hecho Contable a fin de determinar: 


a) Las cuentas que han de intervenir en la anotación del hecho contable. 

b) El lugar (Debe o Haber) en que han de figurar los importes corres- 
pondientes en dichas cuentas. 

c) El total del importe adeudado (destino), que ha de ser igual al total 
del importe abonado (origen). 


Veamos, pues, y analicemos los Hechos Contables que expusimos an- 
teriormente para tratar de registrarlos ahora a través de las correspondien- 
tes cuentas. 

Recuerda que el primer Hecho Contable consistía en la compra de un 
equipo de música por 120.000 pesetas, pagando con talón. 

Siguiendo los criterios del Análisis Precontable que acabamos de expo- 
ner, lo primero que tenemos que determinar son las cuentas que han de 
intervenir en la contabilización de este hecho contable. 

Parece claro que si se compra un equipo de música (120.000 pesetas) 
y se paga con talón, hay un movimiento de dinero; por tanto, las cuentas 
que deben registrar dicho movimiento son: 


Mobiliario y Bancos 
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¿En qué lugar de las mismas, Debe o Haber, han de anotarse los im- 
portes correspondientes? 

Razonemos de la manera siguiente: si compramos un mueble (equipo 
de música), el mobiliario aumentará, habrá un «destino» y sabemos, por 
los criterios para el registro de operaciones en las cuentas expuestos en lo 
que antecede, que los aumentos o destinos de los elementos de ACTIVO 
se anotan en el DEBE. 

Por tanto, si el mobiliario aumenta se contabilizará en el Debe. Por otra 
parte, si nosotros pagamos con talón, se produce una disminución de di- 
nero «salida u origen» en la cuenta de Bancos, y sabemos que las dismi- 
nuciones, salidas u orígenes de los elementos de ACTIVO se anotan en el 
Haber. Por tanto, si el Banco disminuye se anotará en el Haber. 

Este hecho contable quedará registrado en las cuentas de la siguiente 
forma: 


D Bancos H D Mobiliario  H 


50.000 120.000 e eta 
120.000 


Obsérvese que en las cuentas aparecerán registradas, además de la ope- 
ración de que se trate, las anotaciones que ya estuvieran anteriormente 
contabilizadas. 

Como conclusión de este ejemplo, podemos ver que se cumplen los 
principios de la Partida Doble, expuestos anteriormente. 

Si nosotros ahora cancelamos parte de la deuda de Galerías Amigos, 
mediante dinero que tenemos depositado en el Banco (por ejemplo, 10.000 
pesetas), según el razonamiento hecho en el caso anterior, es evidente que, 
si sale dinero del Banco Hispano Mexicano y lo reciben las Galerías Ami- 
gos, las cuentas que funcionarán en este caso serán: 


Banco Hispano Mexicano y Galerías Amigos 


Del Banco sale el dinero, luego disminuye el importe de lo que allí te- 
nemos depositado y, como sabemos, las disminuciones, salidas u orígenes 
de los elementos de Activo se anotan en el Haber de su cuenta respectiva. 
Tendremos, pues: 


Si Banco disminuye, se contabilizará en el HABER. 


«Galerías Amigos» también disminuye por cancelación de parte de 
nuestra deuda, pero como es una cuenta de Pasivo, esta disminución se 
anotará en el Debe. 

Recordemos, pues, a este repecto el tercer principio de la partida do- 
ble: 


«Toda cuenta que recibe o todo lo que “entra” es deudor». 
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Y las «Galerías Amigos», representada por su cuenta, recibe el dinero 
procedente del Banco. Por consiguiente: 


Si Galerías Amigos disminuye o recibe, se contabilizará en el DEBE. 


Como la cantidad a anotar tanto en el Debe como en el Haber es 20.000 


pesetas, efectuaremos la siguiente contabilización en las cuentas mencio- 
nadas. 


Banco Hispano 
D Mexicano  H D Galerías Amigos H 


150.000 10.000 *——————= 10.000 20.000 


Hasta este momento, nos hemos dedicado exclusivamente a dar una 
breve exposición de qué es la Contabilidad, para qué sirve y cómo se van 
introduciendo los distintos hechos contables en los registros de cada cuen- 
ta, así como una representación gráfica de los mismos. 

Todo esto no tendría sentido si no tratásemos de llevarlo a la práctica 
mediante un juego de programas sencillos que lo controlen o lo registren 
y nos permitan, cuando nosotros deseemos y de manera fácil, listarlo de 
ciertas formas. Para ello hemos tratado de elegir un lenguaje sencillo como 
el BASIC y el PASCAL, lenguajes que resultan muy introducidos en todos 
los ordenadores y que permiten al lector poco a poco ir confeccionando, 
mediante tecleo en su ordenador personal, un conjunto de programas que 
le permitirán realizar lo que pretende este libro, controlar su economía do- 
méstica con el ordenador. 

Establezcamos a continuación unos principios básicos, a saber: 


— La cuenta de donde SALE el dinero (a la que, para evitar errores, se 
le dará un código de cuenta) y que llamaremos cuenta acreedora o cuenta 
origen, y a partir de este momento nos referiremos a ella con el nombre 
de ORIGEN. 

— La cuenta a donde LLEGA el dinero, que llamaremos cuenta deu- 
dora o cuenta destino, y a partir de este momento nos referiremos a ella 
con el nombre de DESTINO. 

— La RAZON por la que efectuaremos este movimiento, es decir, el he- 
cho contable que produce este movimiento y que a partir de ahora nos re- 
feriremos a él con el nombre de CONCEPTO. 

— Por último, este movimiento se refleja mediante la cantidad en di- 
nero que se relaciona con ambas cuentas y que a partir de ahora nos re- 
feriremos a ella con el nombre de PESETAS. 
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INTRODUCCION AL MODELO 
INFORMATICO 


APLICACION CONTABLE 


A aplicación contable se basa en el establecimiento de una 
serie de Cuentas, que iremos agrupando en tablas y que 
podremos ampliar según nos haga falta. No obstante, para 
simplificar, al iniciarlas debemos prever el tamaño con 
una cierta amplitud. 


Lógicamente, estas cuentas tienen un movimiento mo- 
netario entre ellas, que habrá que definir, y como quiera 
que cada persona que las utilice podría tener una forma 
W==== distinta de nombrar la cuenta, para evitar problemas cada 
una se definirá con un código. 


El código consta de uno a tres caracteres, con los que se harán todas 
las referencias a la cuenta que representa, y de una descripción literal que 
sustituirá al código (para mayor claridad) en los distintos informes de sa- 
lida. 


La aplicación está constituida por una serie de programas que mane- 
jan todos los datos de los diferentes hechos contables, datos que se regis- 
tran en un fichero que contiene toda la información contable codificada. 


En ese fichero se escriben los registros y de él se leen, para posterior- 
mente producir diferentes tipos de informes. 


Los movimientos de las cuentas (Hechos Contables) se definen especi- 
ficando una serie de datos, como fecha, cuenta de origen, cuenta de des- 
tino y pesetas. 


El fichero que contiene todos los movimientos contables deberá estar 
diseñado de la forma siguiente: 


Nombre del Fichero Apuntes. Mov. 


Tipo de Fichero Lectura/escritura 
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Tipo de Acceso Lectura secuencial 
Escritura secuencial 
Adición secuencial por la cola. 


Registros Cada registro deberá contener la definición de 
un movimiento contable de acuerdo con el 
siguiente formato: 


CAMPO DESCRIPCION 
FECHA Número formado por (ddmmaa , siendo 
dd = día 
mm = mes 
aa = año 
ORIGEN Tres caracteres que representan el código de la 
cuenta acreedora o cuenta de «origen». 
DESTINO Tres caracteres que representan el código de la 
cuenta deudora o cuenta de «destino». 
CONCEPTO Tres caracteres que representan el código 


correspondiente al concepto por el que se produce 
el movimiento. 

PESETAS Cantidad numérica, que recoge el importe del 
movimiento. 
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PROGRAMA DE CARGA 
DE TABLAS 


ODOS los programas que a continuación iremos incluyen- 
do manejan dos tablas, y éstas son: 


Tabla de cuentas 


y 
Tabla de conceptos 


La tabla de cuentas 


La tabla de cuentas se crea para poder referirnos a una 
cuenta mediante un código sencillo de tres caracteres, y con él manejar 
la aplicación de nuestra contabilidad casera. 

En el programa escrito en Pascal, esta tabla estará recogida dentro de 
un fichero que llamaremos «Tabla. cta.» y que leeremos en forma de una 
matriz de 20 filas y tres columnas, donde cada cuenta se referencia por el 
índice de la fila que le corresponde. 

Esta tabla obliga a crear otra tabla de descripción de los nombres de 
las cuentas, que utilizaremos siempre que efectuemos una salida o resul- 
tado en nuestra aplicación. Por ello, esta tabla tendrá el mismo número 
de filas que la tabla de cuentas, y por convenio vamos a establecer un an- 
cho de 15 posiciones. Igualmente la incluiremos en un fichero que llama- 
remos «tabla. des.». 

A continuación se presenta un ejemplo del procedimiento que podría 
utilizarse para crear las dos tablas mencionadas: 


El procedimiento ejemplo de carga de códigos de cuentas y descripcio- 
nes es repetitivo en su petición por pantalla; para ello comprueba: 


En el código de cuenta 


— Que la longitud del código de cuenta sea de tres caracteres. 
— Que los caracteres tecleados sean letras mayúsculas. 


En la descripción de cuenta 


— Que la longitud debe ser de 15 caracteres (por ello, deberemos de 
teclear la descripción de la cuenta sin preocuparnos de su longitud, ya que 
el programa completa a 15 con blancos y si nos pasamos de 15, lo trunca 
a esa longitud). 


0 
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Este procedimiento termina cuando, al leer el código de cuenta, detec- 
ta la clave «END». 

En el caso del lenguaje Basic, el código de cuenta se encontrará en la 
variable «C$(20)», y en la variable «D$(20)» incluiremos la descripción de 
las mismas, por lo que su contenido se podría definir con un bucle que con- 
tenga una instrucción como: 


Que lea de un bloque de datos preparado previamente, como en el si- 
guiente ejemplo: 


LA TABLA DE CONCEPTOS 


La tabla de conceptos se crea para poder referirnos a un concepto me- 
diante un código sencillo de tres caracteres, y con él manejar la aplicación 
de nuestra contabilidad casera. 


En el programa escrito en Pascal, esta tabla estará recogida dentro de 
un fichero que llamaremos «Tabla. con.» y que leeremos en forma de una 
matriz (de 20 filas y tres columnas), donde cada cuenta se referencia por 
el índice de la fila que le corresponde. 


Esta tabla obliga a crear otra tabla de descripción de los nombres de 
conceptos, que utilizaremos siempre que efectuemos una salida o resulta- 
do en nuestra aplicación. Esta segunda tabla tendrá el mismo número de 
filas que la tabla de conceptos, y por convenio vamos a establecer un an- 
cho de 15 posiciones. Igualmente la incluiremos en un fichero que llama- 
remos «tabla. des.». 
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A continuación se presenta un ejemplo del procedimiento que podría 
utilizarse para crear las dos tablas mencionadas: 


El procedimiento ejemplo de carga de códigos de conceptos y descrip- 
ciones sólo comprueba: 


En el código de concepto 

— Que no hemos tecleado «END», ya que esto indicaría el final de la 
carga; aquí los códigos pueden tener la longitud de uno a tres caracteres. 
En la descripción del concepto 


— Que la longitud debe ser de 15 caracteres (por ello, deberemos de 
teclear la descripción de la cuenta sin preocuparnos de su longitud, ya que 
el programa completa a 15 con blancos y si nos pasamos de 15, lo trunca 
a esa longitud). 


En el caso del lenguaje Basic, el código de concepto se encontrará en 
la variable «E$(20)» y en la variable «F$(20)» incluiremos la descripción 
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de cada concepto. Su co:tenido se podría definir con un bucle que con- 
tenga una instrucción como: 


Que lea de un bloque de datos preparado previamente, como en el si- 


En la descripción de la salida que sigue se ha supuesto que se dispone 
de una pantalla de 80 caracteres. 

Para los casos en que la pantalla tenga menos de 80 caracteres, hay que 
ajustar los comienzos de los distintos campos, de forma que la ruptura de 
líneas coincida con la separación entre los campos. 

De esta forma los listados por impresora podrán seguir teniendo el as- 
pecto deseado de las 80 columnas. 

Seguidamente tratemos de iniciar este control mediante el juego de 
programas a que nos hemos referido anteriormente. Para ello debemos 
pensar que, cuando vamos a empezar a utilizar estos programas por pri- 
mera vez, es preciso definir la situación inicial en que nos encontramos. 

Así, pues, empezaremos por un programa de carga de tablas que po- 
dría programarse en PASCAL, y éste sería el siguiente: 


PROGRAMA TABLAS, EN PASCAL 


tabdpcpto : array[1..20] of coddes; 


end ; 

regcta = record 

tabcta : array[1..20] of codcta; 
end ; 

regdes = pecord 

tabdes : array[1..20] of coddes; 
end ; 

var 

Tablacta : file of regcta; 

tabctareg : regcta; 

Tablades : file of regdes; 

tabdesreg : regdes; 

Tablacpto : file of regcpto; 

tabcptoreg : regcpto; 


tabladpcpto : file of regdpcpto; 
tabdpcptoreg  : regdpcpto; 


cta : string[3]; 
cod : string[1]; 
cc,11,1, 111 : Integer; 
codd : string[15] ; 


Procedure CIERRE ; 
Begin 
close (tablacpto); 
close (tabladpcpto); 
close(tablacta) ; 
close(tablades) ; 
End ; 
Procedure INICIALIZA ; 
Begin 
Vith tabctareg, tabdesreg, tabcptoreg, tabdpcptoreg Do 
for 1 := 1 to 20 Do 
begin 
tabcta[I] => 
tabdes[1] : 
tabcpto[1]: 
tabdpcpto[ 1 
end; 
End ; 
Procedure CODICTA ; 
var 
sicod : boolean ; 
mayus : boolean ; 
sw : integer ; 
Begin 


clirscr ; 


cs ion! on 
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writeln(*Deme los codigos cta y descripción ') ; 
writeln(" y teclee END para salir del bucle..*); 
writeln(” *); 

sicod:= false; 

mayus := false ; 


writeln(" 0); 

writeln('Entre el codigo de cuenta....( 3 posiciones ) * ); 
readin(cta); 

if-length(cta) < 3 then 

writeln(” Error. La longitud debe ser de tres letras. * ); 
Until lengthícta) = 3; 
For-I:=1-to 3-do 
begin 

if not(cta[IJ in["A”..Z*J) then sw := sw +1; 
end . 


1f sw = 0 then 
mayus-:=-true 
else 


writeln(” Por favor teclee letras Mayusculas ”); 
Until mayus =-true-; 
A 
if cta = “END” Then-—sicod := true; 
if sicod = false then 
begin 
tabctareg.tabcta[11]-:=-cta; 
writeln(* >; 


writeln(“Entre la descripción de la cuenta..',cta,' (max. 15 posiciones ) ”); 


Readin(codd) ; 

for cc := lengthícodd)+1 to 15 do 
codd:=-codd+*-*-; 
tabdesreg.tabdes[11] := codd ; 
writeln(” *); 

end; 


Until-sicod = true; 
End; 
Procedure CODCTO-; 
var 
sicod : boolean ; 
Begin 
Cirscr; 
sicod := false ; 
TI :=0; 
Repeat 
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writeln(* “); 


writeln("Entre el codigo de concepto....(max. 3 posiciones)” ); 
readin(cta) ; 


11 := (111); 
if cta = 'END' then sicod := true; 
if sicod = false then 
begin 
tabcptoreg. tabcpto[ III] : 
writeln(* *); 
writeln(*Entre la descripción del concepto..*,cta,' (max. 15 posiciones) 
readln(codd) ; 
for cc := length(codd)+1 to 15 do 
codd := codd+" *-; 
tabdpcptoreg. tabdpcpto[ 111] :=-codd; 
writeln(”  *); 
end; 
Until sicod = true; 
End; 
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Procedure LISTACTA ; 
Begin 

clrscr; 

WITH tabctareg, tabdesreg Do 

Begin 
writeln('*Tabla de cuentas y sus Descripciones”); 
A  __  _ _ q _»>EEA e 
writeln(" >; 
writeln(” *); 
Writeln('"Codigo Cuenta Descripción  ”); 
writeln --——————————-— nooo Zz 
writeln(" *); 
For 1:= 1 to 11 do 
writeln(” ” tabcta[1],* * ,tabdes[1]); 
writeln(” *); 

writeln(' ¿ Esta de acuerdo con la tabla ?..(s/n) '); 

readin(cod); 

If cod = "s” then 
begin 
write(tablacta, tabctareg); 
write(tablades, tabdesreg); 
close(tablacta) ; 
close(tablades) ; 


end 

else 
begin 
writeln(” no se salva la tabla de cuentas ”); 
writeln(” entrela de nuevo ...... E 
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close(tablades); 
close(tablacta); 
end; 
end ; 
End; 


Procedure LISTACTO ; 
Begin 
Cirscr-; 
writeln(' Tabla de conceptos y Descripciones”); 
Write ================================== > 
writeln(" %); 
writeln”-—-); 
writeln(*Codigo Concepto Descripción 
writeln(”==============="=======22=== y; 
writeln(”  ”); 
With tabcptoreg, tabdpcptoreg Do 
Begin 
For 1:= 1 to 111 do 


writeln(* * tabcpto[1],* * Tabdpcpto[ 17); 


writeln(” —”); 
writeln(” >); 
writeln(*¿ Esta Ok la tabla ? (s/n ) ”); 
Read1n(cod); 
if cod = 's”' then 
begin 
write(tablacpto,tabcptoreg); 
write(tabladpcpto, tabdpcptoreg); 
close (tablacpto); 
close (tabladpcpto); 


end 

else 
begin 
writeln(” no se salva la tabla de conceptos '); 
writeln(” entrela de nuevo ...... 3 


close (tablacpto); 
close (tabladpcpto); 
end; 
End ; 
End; 


BEGIN 


assignítablacta,'tabla.cta'); 
rewrite(tablacta); 
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Explicación del Programa Tablas: 
Carga de los códigos y conceptos 


El programa comprende al principio declaraciones de variables y tipos, 
de estructuras o formatos internos de variables, que el programa va a uti- 
lizar. Algunas de estas declaraciones son estructuras en forma de tabla, 
otras definen la composición del registro de los ficheros que contienen las 
tablas que hemos visto anteriormente: 


Tablacta, Tablacpto, Tablades y Tabladcpto. 


En el cuerpo del programa empieza el programa con la instrucción 
«BEGIN». Seguidamente se empieza por asignar nombres de ficheros y 
abrirlos para escritura mediante las instrucciones siguientes: 


assign(tablacta, tabla.cta'); ( asignación 
rewrite(tablacta); apertura para escribir 
assign(tablades,tabla.des'); ( asignación 
rewrite(tablades); apertura para escribir 
assign(tablacpto,tabla.cto'); ( asignación 
rewrite(tablacpto); apertura para escribir 
assign(tabladpcpto,tabla.dto'); ( asignación 
rewrite(tabladpcpto); apertura para escribir 


En la asignación, y dependiendo de nuestro ordenador, podemos tam- 
bién indicar en qué disco queremos grabar el fichero. 
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Procedimiento Inicializa 

Este sirve para ir limpiando las diferentes tablas de caracteres raros de 
la memoria, poniéndolo todo a blancos. 

La instrucción: 
With tabctareg,tabdesreg, tabcptoreg,tabdpcptoreg Do 


se utiliza para poder referirnos posteriormente a la tabla que deseemos, 
de la forma sencilla siguiente: 


writeln(' “tabcta[I],* “tabdes[1I]); 
si no, tendríamos que escribir la misma instrucción de la forma siguiente: 
writeln(' “,tabctareg.tabcta¿Iñ,' * tabdesreg.tabdes¿Iñ); 


La instrucción CLRSCR se utiliza para limpiar la pantalla. Esta instruc- 
ción puede variar según la máquina y el compilador de Pascal que este- 
mos utilizando. En caso de duda, se recomienda al lector que consulte el 
Manual correspondiente. 


Procedimiento Listacta 


Se usa para proceder al listado por pantalla de las tablas de cuentas y 
descripción de las mismas. 

El bloque de sentencias que sigue a continuación se utiliza para poder 
comprobar por pantalla si lo tecleado es correcto o no, pero solamente has- 
ta el valor de la variable «II», que es la que controla el número de códigos 
incluidos en procedimiento CODICTA. 


El bloque de sentencias que sigue a continuación se utiliza para poder 
dar la conformidad a la tabla, en cuyo caso se graba en el fichero, se cierra 
y continuamos con el programa. Por el contrario, si no damos la confor- 
midad, no se graba, pero también se cierra el fichero y se continúa, por- 
que en este caso la tabla no está bien. 


Procedimiento Listacto 


Se usa para proceder al listado por pantalla de las tablas de conceptos 
y descripción de los mismos. 

El bloque de sentencias que sigue a continuación se utiliza para poder 
visualizar la otra tabla, que, al igual que en el caso anterior, sólo se verá 
en la pantalla, hasta el valor de la variable «III». 


En el siguiente grupo de instrucciones tratamos solamente de dar nues- 
tra conformidad a la segunda tabla, para poder cerrar el fichero y terminar: 


PROGRAMA INICIAR o A 


STE programa se arrancará cuando demos comienzo a 
nuestra aplicación de contabilidad, lógicamente si nos he- 
mos leído anteriormente, de la teoría contable, nos habre- 
mos dado cuenta de que antes de iniciar nada, habrá que 
establecer un inventario casero, que refleje de alguna ma- 
nera nuestra situación en ese momento, para irla poste- 
riormente actualizándola. 

Este programa será el que creará el fichero que con- 
trola todos los movimientos, el cual le hemos dado el 
nombre de APUNTES. MOV. 

El programa debe registrar en el fichero recién creado un registro por 
cada una de las distintas cuentas, con el saldo que hayamos establecido a 
las mismas, y que de alguna manera tendrá un sentido real y coherente. 

Esta información del saldo de las cuentas se introduce en ellas median- 
te un registro de movimiento ficticio «SAL» (saldo inicial, contemplado 
para este tipo de situaciones), que contiene en el código de la cuenta tan- 
to si es una cuenta de tipo ORIGEN (acreedora) o DESTINO (deudora); 
por tanto, intervendran: 


campo «FECHA» 
campo «ORG» 
campo «DES» 
campo «CON» 
campo «PTAS» 


Por supuesto, antes de ejecutar el inicio en sí de las cuentas, para es- 
tablecer los saldos de arranque, habrá primero que ir cargando todas y cada 
una de las distintas tablas que hemos ido indicando en lo que se refiere a 
cuentas, descripción de las mismas, conceptos y sus descripciones. Para 
generar la información de arranque de las cuentas el programa de Carga 
(iniciar) deberá pedir la fecha de comienzo (que no tiene por qué coinci- 
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dir con la fecha del día); después, el programa deberá pedir para cada uno 
los códigos de cuentas en la tabla cargada: 


Saldo inicial para la cuenta... «BEC». 


Una vez tecleado el importe inicial de la cuenta y verificado que lo 
tecleado es número, pasaremos, pues, a identificar si el arranque del sal- 
do inicial es: 


DEUDOR (destino) o ACREEDOR (origen). 


Pues como sabemos, una cuenta tiene la posibilidad de, según el he- 
cho contable originado, tener uno u otro tipo de movimiento. 

Por ejemplo, iniciar el arranque de BANESTO: el importe existente es 
de 60.000 pesetas, el programa deberá registrar estas 60.000 pesetas como 
saldo inicial deudor (destino), ya que, según estudiamos anteriormente, por 
el concepto de personificación de cuentas el dinero en BANCOS es deu- 
dor nuestro, si cojiéramos e iniciáramos la cuenta de Préstamo de la Caja 
Postal, el saldo inicial sería acreedor (origen), ya que nosotros somos deu- 
dores de la Caja Postal, luego ella es un acreedor nuestro, el manejo de es- 
tos conceptos no debe de confundirnos, si nos hemos leído detenidamen- 
te el capítulo de cuentas. 

Y por último, la cantidad de dinero de dicho movimiento que lo alma- 
cenaremos en el campo PESETAS; con todos estos datos tenemos confor- 
mado el contenido del registro, que llevaremos al fichero de Apuntes. 
Mov., donde secuencialmente se almacenan todos los diferentes movi- 
mientos. 


PROGRAMA INICIAR, EN PASCAL 
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num : boolean ; 

tablacta  : File of regcta ; 
tabctareg : regcta ; 
Apuntes : Text; 

cta,cod : string[3] ; 

chk : string[1] ; 

I,c,cc : integer ; 

dia,mes,year : Integer ; 

fechae: string[6] ; 


Procedure Abrir ; 

Begin 
assign(tablacta,*tabla.cta”) ; 
reset(tablacta); 
assign (apuntes,'apuntes.mov') ; 
rewrite (apuntes); 


clrscr ; 

readí(tablacta,tabctareg) ; 

writeln(* >; 

writeln(” Visión de la tabla de cuentas leida ”) ; 

writeln(” ); 

For I-:= 1 to 10 do 
begin 
writeln(tabctareg.tabcta[1]) ; 
end ; 

writeln("  ):; 

close(tablacta) ; 

End ; 


Procedure DIARIO ; 
Var 
dia: integer ; 
sw: boolean ; 
Begin 
sw := false ; 
Repeat 
writeln(" 3); 
writeln(“Deme el dia...') ; 
writeln(” "); 
readídia) ; 
writeln(" 0); 


if (not(dia in[1..31])) then 
begin 
writeln(* 3; 
writeln(*no valido el dia....*,dia:2) ; 
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else 
sw := true ; 
Until sw = true; 
str(dia:2,dd) ; 
if dd[1] = * * then dd[1] := “0” ; 
End; 


Procedure MENSUAL ; 
Var 


writelnC 3); 
writeln("Deme el mes...*); 
writeln(” *); 
readímes) ; 
writeln(" 3); 
if (not(mes in[1..12]3)) then 
begin 
writeln(” *); 


writeln(* no valido el mes .... 


sw := false ; 
end 
else 
sw := true ; 
Until sw = true ; 
str(mes:2,mm) ; 
if mm[1] = * * then mm[1] := 0” ; 
End; 


Procedure ANUAL ; 
Var 
anno : integer ; 
sw: boolean ; 
Begin 
sw := false ; 
Repeat - 
writelnC 0; 
writeln(“Deme el año...*) ; 
writeln(” "); 
readíanno)-; 
writeln( 33 
if (not(anno in[80..99])) then 
begin 
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*mes:2); 


writeln(” *); 
writeln(” no valido el año ....”,anno:2) ; 
sw := false; 
end 
else 
sw := true ; 
Until sw = true; 
stríanno:2,aa) ; 
fechae := concat(dd,mm,aa) ; 
End ; 


Procedure CUENTA ; 
var 
sw : boolean ; 
w,I : integer ; 
Begin 
sw := false ; 
Repeat 
Repeat 
Repeat 
writeln(* 3); 
writeln('Digame si es cuenta Origen (org) o Destino (des) ”); 
writeln(”  *); 
readí(cod) ; 
w==0-; 
for 1:=1 to 3 do 
begin 
if not(cod[1] inf['o",'r”,'g","d','e”,'s'T) then w := w +15 
end ; 
1f w > 0 then 
begin 


writeln(” —');5 


writeln(*ERROR. cuenta... *, cod:3,' mal, tecleelo de nuevo por favor ') ; 


writeln(" 3); 
w=0 >; 
end 
else sw := true ; 
until sw = true; 
if length(cod) < 3 then 
begin 
writeln(" —"); 
writeln(*ERROR. longitud mal. tecleelo de nuevo por favor .. 
writeln(C-— 2); 
end ; 
Until length(cod) = 3 ; 
If (cod = *org') then 
begin 
origen := cta; 


«E cod:3 3; 
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begin 
writeln(" 2); 
writeln(' ERROR. no ha tecleado Vd bien *) ; 
writeln(” debe ser (org) o (des)... tecleelo de nuevo ”) ; 
writeln(” *); 
sw := false ; 
end ; 
end ; 
Until sw = true ; 
End ; 


Procedure Identificador ; 
Begin 


if not(pesetas[c] = * * ) then 
begin 
cc:= (c-1) ; 
pesetas[cc] :=*.” ; 
num := true ; 
end 
else c := (c+1) ; 
Until num = true ; 
End ; 


Procedure Proceso ; 
var 
fin : boolean ; 
sw : boolean ; 
Begin 
fin := false ; 
A 
Vhile (fin = false) do 
begin 
cta := tabctareg.tabcta[1] ; 
if not(cta ="  ”) then 


begin 
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writeln(C  );5 
writeln("Saldo inicial para la cuenta...”,cta:3 ); 
writeln(” —); 
read(ptas) ; 
Cuenta ; 
str(ptas:10:0,pesetas) ; 
Identificador; 
writeln(” 3; 
writeln(” contenido del registro a grabar 
writeln(” '); 
writelnífechae,' *,origen,' * destino,” *,concepto,' ', pesetas) ; 
writeln(Apuntes,fechae,' *, origen, *,destino,' *,concepto,” *, pesetas) ; 
sw := false ; 
Repeat 
writeln(" '); 
writein(* —teclee (s) para seguir-o (f) para acabar *); 
read(chk) ; 
If not(chkf1] in["s',*f"1) then 
writeln(*ERROR. por favor intentelo de nuevo ”) 
else 
sw := true ; 
Until sw = true; 
1f chk = *f' then fin := true; 
ta 
end 
else 
fin := true; 
End ; 
End; 


BEGIN 
Abrir; 
Diario ; 
Mensual; 
Anual; 
concepto —:="SAL”; 
Repeat 
ptas := 0; 
AAA 
A 


Proceso ; 

Until chk = 'f” ; 

close(Apuntes); 
End. 
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EXPLICACION DEL PROGRAMA INICIAR 


El programa comprende al principio declaraciones de variables y tipos 
de estructuras o formatos internos de variables, que el programa va a uti- 
lizar. Algunas de estas declaraciones son estructuras en forma de tabla, 
otras definen la composición del registro de los ficheros que contienen las 
tablas. 

Hemos establecido una serie de procedimientos para ir paso a paso 
avanzando en la inicialización del fichero de referencia. 


Procedimiento Abrir 


Comenzamos el procedimiento con la asignación de dos ficheros, el pri- 
mero es la tabla de códigos de cuenta y el segundo es un fichero de texto 
donde almacenaremos los apuntes contables. 


cluyeron en el fichero de códigos de cuentas, y así proporcionar una ayu- 
da al lector recordando los códigos de las cuentas; las instrucciones son las 
siguientes: 


Procedimiento Diario 


Empieza pidiendo el día, comprueba que lo tecleado está dentro de los 
días del mes; en caso contrario, indica «día no válido», y vuelve a pedir el 
día; en caso de teclear bien el día, pasa al siguiente procedimiento; las ins- 
trucciones son las siguientes: 


convertimos el día leído en carácter de dos posiciones y lo almacenamos 
en la variable «dd»: 


str(día:2,dd) ; 


si la primera posición primera de la variable «dd» es blanco, le incluimos 
un cero. 


if dd[1] = “ then dd[1] := '0*; 


Procedimiento Mensual 


En este bloque sólo comprobamos que el mes tecleado sea correcto y 
válido, ya que, en caso contrario, nos lo indica y nos lo pide otra vez; las 
instrucciones son las siguientes: 
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str(mes:2,mm) ; 


si la primera posición primera de la variable «mm» es blanco, le inclui- 
mos un cero: 


str(mes:2,mm) ; 
if mm[1] = * * then mm[1] := “0%; 


Procedimiento Anual 


Con este procedimiento comprobamos que el año tecleado sea correc- 
to y esté comprendido entre los años 80 y 99, que así lo hemos establecido 
por convenio en el programa; en caso contrario, nos lo indica y nos vuel 
ve a pedir el año; las instrucciones son las siguientes: 


ul 
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convertimos el año leído en carácter de dos posiciones y lo almacenamos 
en la variable «aa»: 
str(year:2,aa) ; 


Con los procedimientos Diario, Mensual y Anual almacenamos la fecha 
en las variables «dd», «mm» y «aa», las cuales son unidas y asignadas a la 
variable «fechae», con la instrucción: 


fechae := concat(dd,mm,aa) ; 


que servirá para todo el resto del programa. 
Inicializamos la variable «concepto» con el contenido de «SAL», que 
igualmente nos servirá para todo el programa. 


Procedimiento Proceso 


Este procedimiento utiliza la variable «fin», definida como booleana, 
para controlar el fin de la entrada de datos al fichero de Apuntes. mov., la 
cual se puede dar de dos maneras: 


— Por vacío en la tabla de cuentas. 


Comenzamos leyendo el primer código de la tabla de cuentas, que ve- 
rificamos si es blanco, en cuyo caso el programa debe finalizar, pues indi- 
ca que no hay más cuentas en la tabla. 


Instrucciones: 
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if notícta="  ”) then 


A A A AAA AA A 


— Tecleando una «f» para acabar. 


sw := false ; 
Repeat 
witelnC3>5 
writeln(”  teclee (s) para seguir o (f) para acabar ”); 
readíchk) 
Ifnottchkfidintes 4D Hhen 
begin 
writeln(" 5); 
writeln(CERROR, por favor—intentelo de nuevo ')-; 
writeint3; 
end 
else 
sw := true; 
Untid-sw-=-true-; 
ifochk => thencfin—==true; 


De acuerdo a la cuenta en la tabla, este procedimiento pide el saldo ini- 
cial para ella, según las siguientes instrucciones: 


cta=tabctareg-tabcta(1]>; 

II O 

begin 
writeint 35 
writelnt-Saldo-inicial-para-la-cuenta...,ctai3-); 
Write 
readíptas) 


nono... 


A continuación llama al procedimiento Cuenta, y posteriormente con- 
vierte la cifra leída de real a caracteres, llamando a continuación al pro- 
cedimiento Identificador. 
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Veamos las instrucciones: 


Efectuamos un listado del registro que vamos a grabar para posterior- 
mente grabarlo en el fichero Apuntes. 


Veamos las instrucciones: 


€ e 


Procedimiento Identificador 


Este procedimiento se utiliza para incluir en el registro un separador 
que nos permita identificar la posición, en dónde empieza el número en 
el fichero de Texto (Apuntes). 

Para ello se ha definido la variable «núm», como (booleana), y que sólo 
puede adquirir los valores de «verdadero» o «falso» («true» y «false», en in- 
elés). 


Veamos a continuación sus instrucciones: 


ul 
No) 


La variable «ptas.» la definimos como real, para que almacene núme- 
ros mayores de 32767, aunque posteriormente la convertiremos en un li- 
teral de 10 posiciones para escribirlo en el fichero. 


Procedimiento Cuenta 


Después de leer el importe en pesetas, tenemos que indicar si es ori- 
gen o destino; las instrucciones que a continuación se indican realizan di- 
cha operación. 


Seguidamente comprobamos el código de destino u origen; tecleado se 
compone de las letras «org» o «des», escritas en minúsculas, escribiendo 
un mensaje de error; cuando esté mal, todo esto se hace mediante: 
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A continuación verificamos si la longitud es de tres letras, y en el caso 
de no serlo, nos dará un mensaje de error; veamos las instrucciones: 


Por último, si lo tecleado corresponde a las palabras «org» o «des», efec- 
túa la asignación correspondiente de la cuenta, origen o destino, según 
corresponda. Veamos las instrucciones: 
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PROGRAMA APUNTES 
AL FICHERO 


MPEZAREMOS por la definición de los apuntes contables, 
teniendo en cuenta, como es natural, el principio de he- 
cho contable que se ha originado para saber si su imputa- 
ción a una cuenta es deudor (destino), o sea, entra o acree- 
dor (origen) o sea, sale de la cuenta. 


Este programa deberá añadir al fichero que contiene 
los movimientos iniciales, por la cola los nuevos registros; 
para ello el programa realizará una rutina (bucle) en el 
que deberá ir pidiendo al usuario los datos necesarios para 
identificar el movimiento, es decir, cuando hablábamos de la estructura 
del registro del fichero indicábamos los campos de que se componía el re- 
gistro; por tanto, ésta descripción la debe pedir el programa. 


En la pantalla el usuario va definiendo el movimiento que quiere re- 
gistrar, y para ello le van apareciendo sucesivamente las siguientes pregun- 
tas: 


Deme el día 

Deme el mes 

Deme el año 

Dígame el código de la cuenta Origen 
Dígame el código de la cuenta Destino 
Deme el importe del movimiento 


movimientos y que se da por finalizada la entrada de datos. Entonces se 
cierra el fichero y termina el programa. 


Si el número tecleado en el campo día es distinto de cero, el programa 
comprueba si el día tecleado está dentro del período 1 a 31. Si no es así, 
entonces aparecerá en pantalla el mensaje siguiente: 


día inválido (y se repite el mensaje de petición de día). 
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Cuando se ha tecleado un día que es correcto y que está dentro del in- 
tervalo (1 a 31), el programa pasa a continuación con la petición del si- 
guiente campo (MES). 

El usuario tecleará el mes, y el programa comprueba si está compren- 
dido entre 1 y 12 (repitiendo la petición de mes si no es correcto). 

Posteriormente el programa pide el año y él comprueba igualmente si 
la respuesta está comprendida entre 80 y 99, que es el intervalo que he- 
mos establecido para este programa. 

A continuación el programa deberá pedir el código de origen, que cons- 
tará de tres letras. Si tecleamos un código que no se encuentra en la tabla 
de códigos, como puede suceder que el usuario no se acuerde del código 
que tecleó cuando lo incluyó en la tabla, el programa podría ofrecer una 
ayuda al usuario, limpiando la pantalla y presentando la tabla de cuentas 
y la descripción de las mismas, con lo que el usuario tendría un medio rá- 
pido de poder recordar cómo es el código que debe teclear. Esto es una 
sugerencia para posibles mejoras de este programa, pero no se ha inclui- 
do en el mismo. 

Igualmente ocurrirá con el código de destino, que el programa tam- 
bién comprueba con objeto de ayudar al usuario cuando esté cargando da- 
tos. (Recordemos que el código de las diferentes cuentas está contenido 
en la variable C$, para el caso del Basic, y en un fichero, en el caso del 
Pascal.) 

Pasamos, pues, a pedir el nuevo campo, o sea, el concepto, que dijimos 
anteriormente iba a estar codificado, para evitar los errores correspondien- 
tes. Por tanto, igual que en el caso de los campos de Origen y Destino, el 
programa también comprueba si el código tecleado es o no correcto (re- 
cordemos que los códigos de concepto se hallan contenidos en la variable 
Ef$, para el caso del Basic, y en un fichero para el Pascal). 

Por último, el programa pide la cantidad en pesetas para incluirla en 
el campo del mismo nombre y comprueba que lo que se teclea es un nú- 
mero positivo sin decimales. 

Después que el programa ha realizado todas estas comprobaciones, de- 
berá añadir el nuevo registro por la cola del fichero y seguidamente con- 
tinúa con el bucle de seguir pidiendo más apuntes, hasta que se defina un 
cero en el campo día, que, como ya se ha dicho, sirve para que el progra- 
ma lo detecte como final de la entrada de datos, cierre el fichero y dé por 
finalizada la sesión. 


Veamos el ejemplo en Pascal: 


Programa Apuntes: Añadir registros al Fichero de apuntes.mov 


Name = “Apuntes.mov” ; 
Type 
FileNameType = string[66]; 
codcta = string[3] ; 
regcta = record 
tabcta : array[1..20] of codcta ; 
end ; 
regcon = record 
tabcon : array[1..20] of codcta ; 
end ; 
Var 
Tablacta : File of regcta ; 
Tablacon : File of regcon ; 
tabctareg : regcta ; 
tabconreg : regcon ; 
Old,New: text; 
line  : string[30] ; 
nombre : string[7] ; 
con : string[3] ; 
org + string[3] ; 
des : string[3] ; 
cta + string[3] ; 
cod + string[1] ; 
1 : Integer ; 
ptas  : real; 
pesetas : string[10] ; 
fechae : string[6] ; 


dd : string[2] ; 
ma : string[2] ; 
aa : string[2] ; 


num : boolean ; 


Procedure Cuenta ; 
var 
sicta : boolean ; 
Begin 
Repeat 
repeat 
writeln(” '); 
writeln('Digame el codigo de la cuenta...” ,nómbre) ; 
writeln(" —); 
readin(cta) ; 
if length(cta) < 3 then 
begin 
writeln(” *); 
writeln('ERROR, codigo *,cta,' deben ser 3 caracteres ”) ; 
writeln(”intentelo de nuevo. Por favor' ) ; 


end ; 

until length(cta) = 3; 
sicta := false ; 

For I := 1 to 20 do 


begin 
1f tabctareg.tabcta[1] = cta then 
begin 
if nombre = “ORIGEN * then 
org := cta; 
1f nombre =-*DESTINO' then 
des := cta; 
sicta := true ; 
end; 
end ; 
if sicta = false then 
begin 


writeln("  '); 
writeln('"ERROR. codigo”,cta,” no está en la tabla ") ; 
writeln(*compruebelo y tecleelo de nuevo”) ; 


writeln(” Sn 
end; 
Until sicta = true ; 
End ; 
1 AAA RARE 5E SS ZETA 
Procedure Concepto ; 
Var 
sicon : boolean ; 
Begin 
sicon := false ; 
Repeat 


writeln(” AN 
writeln(*Deme el codigo de concepto')-; 
ReadIn(cta) ; 
writelnC”" 5D); 
sicon := false ; 
For 1 := 1 to 20 do 
begin 
if tabconreg.tabcon[1] = cta then 
begin 
con := cta; 
sicon := true ; 
end ; 
end ; 
if sicon = false then 
begin 
writeln(” Ds 
writeln('ERROR. codigo*,cta,' no está en la tabla '); 
writeln('compruebelo y tecleelo de nuevo”); 


writeln(” HH 
end ; 
Until -sicon-= true-; 
1f lengthítcon) <-3- then con := concatícon,* *); 


End; 
_——_ A A A ) 
Procedure Importe ; 
Begin 
writeln(" 0); 


writeln("Deme el importe del movimiento”); 
writeln(? —*); 
Readiníptas) ; 
stríptas:10:0,Pesetas):; 
End; 
Lo 
Procedure Identificador ; 
var 
c,cc : integer ; 
Begin 


o y 


if not(pesetas[c] = * * ) then 
begin 
coo=tc-D)>; 
pesetas[cc] :=".">; 
num := true ; 
end 
else-c-:= (ct); 
Until num = true; 
End ; 
_AÁAAÁAÁAAAÁAAAAAA<A< <AA>=á-;áéá-— A A 
Function Exist (Fichero: FileNameType): boolean; 
var F: file of byte; 
begin 
assign(F,Fichero); 
[$1-) Reset (FP) ($1+); 
Exist:= (T0result=0); 
close (F) 


q =: 
Procedure Abrir_copiar ; 

Begin 

assign(tablacta,'tabla.cta”); reset(tablacta) ; 
assigní(tablacon,'tabla.cto”); resetí(tablacon) ; 
readí(tablacta,tabctareg) ; 

read(tablacon,tabconreg); 

close(tablacta) ; close(tablacon) ; 


ÓT 


assign(NEW, *apts_new.mov”); 
rewrite(NEW) ; 
if Exist (Name) then (* Si ya existía, copiarlo al nuevo *) 
begin 
assign (0l1d,Name); 
reset (01d); 
while not Eof(01d) do 
begin 
readin (Old,Line); 
writeln (New,Line) 
end; 
close (01d) 
end; 
End ; 


Procedure DIARIO ; 
Var 
dia : integer ; 
sw : boolean ; 
Begin 
sw := false ; 
Repeat 
writelnC  *); 
writeln('Deme el dia...') ; 
writeln(” '); 
read(dia) ; 
writeln(" ); 
if (not(dia in[1..31])) then 
begin 
writeln(” *); 
writeln(*no valido el dia....',dia:2) ; 
sw := false ; 
end 
else 
sw := true ; 
Until sw = true ; 
str(dia:2,dd) ; 
iF-ddE13-=——+hen-ddt1J—=-*0—; 
End ; 


Procedure MENSUAL ; 
Var 
mes : integer ; 
sw : boolean ; 
Begin 
sw := false ; 
Repeat 


writeln(" 5); 


writeln('*Deme el mes...') ; 
writeln(” *); 
read(mes) ; 
writeln(” ); 
1f (not(mes in[1..12])) then 
begin 
writeln(” *); 
writeln(” no valido el mes ....',mes:2) ; 
sw := false ; 
end 
else 
sw := true ; 
Until sw = true ; 
strímes:2,mm) ; 
1£ mm(1] =* * then mm[1] := “0 ; 
End ; 


Repeat 
writeln("” *); 
writeln("Deme el año...*) ; 
writeln(” ); 
readíanno) ; 
writeln(" 0); 

if (not(anno in[80..99])) then 


begin 

writeln(” "3; 

writeln(* no valido el año ....'*,anno:2) ; 
sw := false ; 

end 

else 

sw := true ; 


Until sw = true ; 
str(anno:2,aa) ; 

fechae := concat(dd,mm,aa) ; 
End . 


(osbeneBRBBe Cuerpo del Programa FOOD) 
BEGIN 
Abrir_copiar ; 
mas := true ; 
Repeat 
TG 
des :="  ”; 
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El programa comprende al principio declaraciones de variables y tipos, 


EXPLICACION DEL PROGRAMA 


Procedimiento Abrir-copiar 


Hemos establecido una serie de procedimientos y función para ir pri- 
mero verificando si el fichero Apuntes.mov existe, en cuyo caso lo asigna- 
remos y abriremos como «OLD» y mientras no sea final de fichero, iremos 
copiando registro a registro en otro «NEW», que abriremos con el nom- 


a 


O 


bre provisional de Apts_new.mov; esto lo realizamos con las instrucciones 
siguientes: 


Los procedimientos Identificador, Diario, Mensual y Anual funcionan 
igual que en el caso del programa anterior (Iniciar). 


Procedimiento Cuenta 


Este procedimiento pide el código de la cuenta, empezando primero 
por el de la cuenta «ORIGEN», y después la cuenta «DESTINO», asignan- 
do en cada caso a las variables «org» o «des» el código correspondiente; 
naturalmente, como siempre, se comprueba si la longitud de lo tecleado 
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es de tres caracteres, o si está o no en la tabla de códigos; veamos las ins- 
trucciones: 


Longitud: 


<a 7 7. 00,7 AT A E A A E a 
1190 ,Cta, no está en la Tabla ) 


LL 


Procedimiento Concepto 


Este procedimiento pide el concepto o naturaleza del movimiento, el 
cual es comprobado si se encuentra en la tabla correspondiente, o lo pide 
de nuevo caso de no estar también completa con un blanco en el supuesto 
de ser menor de tres caracteres; veamos a continuación las instrucciones: 


Tabla: 


e | 


No en la Tabla 


A 
riteiní” comruebelo y tecleelo de nuevo”) : 


Una vez comprobado el concepto, pasamos a pedir el importe del mo- 
vimiento con las siguientes instrucciones: 


Con la siguiente instrucción convertimos el número real en un string: 


str(ptas:10:0,Pesetas) ; 


La 


Grabación en Fichero 


Escribo en el «NEW» el registro, y pregunto si se quiere algún otro 
apunte; si contestamos con una «s», vuelvo a empezar; en caso contrario, 
cierro el fichero «NEW», borro el fichero «OLD» y renombro el fichero 
«NEW», y termina el programa. 
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PROGRAMA LISTA 
UNA CUENTA 


ASTA este momento nos hemos limitado a la carga de ta- 
blas de cuentas, mediante unos códigos que las identifican; 
hemos cargado también tablas de conceptos igualmente 
codificadas, y posteriormente nos hemos metido con el 
arranque inicial de las referidas cuentas, para luego llegar 
a la anotación de registros, mediante la petición de los da- 
tos de los apuntes o hechos contables que diariamente se 
van produciendo, guardándolo todo en fichero y tabla. 

Por ello, viene ahora cómo poder obtener la informa- 
ción que deseemos consultando el fichero. 

Este programa sirve para obtener del fichero de movimientos (Apun- 
tes) especificado por el usuario una lista de los movimientos correspon- 
dientes a una determinada cuenta, incluyendo una columna adicional con 
el nuevo saldo que provoca cada nuevo movimiento. 


Ejemplo del resultado de este programa: 
Movimiento de la cuenta: BANESTO. 
Fichero APUNTES.MOV: 


Mov. Fecha Origen Destino Concepto Ptas. Saldo 
25 01/09/86 BANESTO saldo inicial 200.600 
59 23/09/86 BANESTO Inmobilia. letra 50.600 150.000 
123 25/09/86 BANESTO CAJA talón 25.000 125.000 


145 27/09/86 HACIENDA BANESTO transferencia 77.890 202.890 


Expliquemos los movimientos: 

El primero indica que el 1-09-86 se abrió la cuenta con un saldo inicial 
de 200.600 pesetas; aparece en blanco la columna Origen debido a que re- 
fleja que Banesto nos debe ese importe o, dicho de otra manera, hemos de- 
positado (destinado) en Banesto ese importe. 


PS 


El segundo indica que Banesto ha originado (ha salido de la cuenta) el 
importe cuyo destino ha sido la cuenta de Inmobiliaria y cuyo concepto 
ha sido el pago de la letra. 

El tercero indica que Banesto ha originado, mediante el concepto de 
talón, la salida del dinero indicado con destino a la caja. 

El cuarto indica o refleja que Banesto ha recibido (destino) una trans- 
ferencia de dinero procedente de la cuenta de Hacienda. 

Para hacer este pequeño informe, el programa tiene que hacer una bús- 
queda por todo el fichero, para poder obtener de la cuenta en cuestión to- 
dos los movimientos que se hayan producido o en los que haya intervenido. 


lista : string[82] ; 
origen : string[15] ; 
destino : string[15] ; 
con1 : string[3] ; 
concepto :string[15] ; 
suma, 11 : real ; 
1,mov,c,chk,ic,emp,id : Integer ; 
cifra : string[10] ; 
dd : string[2] ; 

mm : string[2] ; 

aa : string[2] ; 

a: string[1] ; 


Procedure ANCHO ; 
VAR 
c : integer ; 
begin 
For c:= length(origen)+1 to 15 do 
begin 
origen := concat( origen,” ”); 
end ; 


For c:= length(destino)+1 to 15 do 
begin 
destino := concat(destino,” *) ; 
end ; 

For c:= length(concepto)+1 to 15 do 
begin : 
concepto := concatíconcepto,” *) ; 
end 

end ; 


Procedure BUSCA ; 
VAR 
cc : Integer ; 
begin 
For 6 := 4 to 20 de 
begin 
if org = tabctareg.tabctalcc] then 
origen := tabdesreg.tabdes[cc] ; 
end ; 
For cc := 1 to 20 do 
begin 
if des = tabctareg.tabcta[lcc] then 
destino := tabdesreg.tabdes[cc] ; 
end ; 
For cc := 1 to 20 do 
begin 
if con = tabconreg.tabcon[cc] then 


4d 
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concepto := tabdconreg.tabdconícc] ; 
end 


end ; 


Procedure CIERRE; 
begin 
close (Apuntes) ; close (Listar) ; 
end; 


Procedure Nosal ; 
begin 
if (org = cta ) then 
begin 
1f nombre 
if nombre 
BUSCA ; 
ANCHO ; 
end; 
if (des = cta ) then 
begin 
if nombre = "pasivo" then suma 
if nombre = "activo'” then suma: 
BUSCA; 
ANCHO ; 
end ; 
str(suma:10:0,sumat) ; 
writeln(Listar,mov:2,* *,dd:2,'/”*,mm:2,'/*,aa:2,* origen,” *, destino,” 
concepto, cifra: 9,sumat: 9); 
end ; 


*pasivo' then suma := suma+ll ; 
“activo” then suma := suma-11I ; 


suma-IT ; 
suma+1I1 ; 


Procedure Empezar ; 
Begin 
if (org = cta) or (des = cta) then 
begin 
if emp = 1 then nosal ; 
if (con = "SAL" )- then 
begin 
nombre := “pasivo” ; 
if des = cta then nombre := "activo" ; 
BUSCA ; 
ANCHO; 
writeln(listar,mov:2,* *,dd:2,*/",mm:2,*/",aa:2,* *, origen,” *, destino,” ”,” 
Saldo inicial ',' *,cifra:9,' *,cifra:9 ); 
suma :=( suma+II ) ; 


Y 
, 


Procedure LEER ; 
VAR 
cc : integer ; 
line : string[35] ; 
Begin 
Readin(Apuntes, line) ; 
mov := (mov+1) ; 
cantidad := copy(line,20,10) ; 
cc := pos(”.', cantidad); 


cifra := copy(line,(20+cc),(10-cc)); 


val(cifra,11,chk) ; 
if (not (chk = 0 ) ) then 
begin 


writeln('"ERROR numero al convertir '); 


CIERRE 

end ; 
org := copy(line,8,3) ; 
des := copy(line,12,3) ; 
coni := copy(line,16,3) ; 
dd := copy(line,1,2) ; 
mm := copy(line,3,2) ; 
aa := copy(line,5,2) ; 
con := coni ; 
if con1[(3] =' * then 


begin 
con := copy(con1,1,2); 
con := concatícon,* 3; 
end ; 
End ; 


Procedure PROCESO ; 


Begin 


assign(Apuntes,'apuntes.mov”) ; reset(Apuntes) ; 
assign(Listar,'listar.cta”)  ; rewrite(Listar) ; 


while not(eof(apuntes)) do 
begin 
O 
LEER ; 
EMPEZAR ; 
end 
End ; 


Procedure Listado ; 
Begin 


assign (Listar,'Listar.cta') ; reset (Listar); 


clrscr ; 


writeln(” Listado para la cuenta ... 


writeln( * '); 


.” ,tabdesreg. tabdes[id] ) ; 


TO 


writeln(” ”); 
writeln('NM FECHA ORIGEN DESTINO 


AZ 


writeln(* “); 


WHILE not EOF(Listar) Do 
Begin 
readin(Listar,lista) ; 
writeln(lista) ; 


end ; 
close (Listar) ; 


End ; 
(ett Cuerpo del Programa Xx >) 


BEGIN 

assign(tablacta,'tabla.cta') ; resetí(tablacta) ; 
assigní(tablades,'tabla.des') ; reset(tablades) ; 
assign(tablacon,'tabla.cto') ; reset(tablacon) ; 
assign(tabladcon,'tabla.dto”) ; reset(tabladcon) ; 


read(tablacta,tabctareg) ; readí(tablades, tabdesreg) ; 
read(tablacon,tabconreg) ; read(tabladcon,tabdconreg) ; 
close (tablacta) ; close (tablacon) ; 

close (tablades) ; close (tabladcon) ; 

mascta := true ; 


mov := 0; suma := 0; emp := 0; sicta := false ; 


writeln(" '); 

writeln(*Deme la cuenta a buscar *) ; 
writelnC 5); 

read(cta) ; 

writeln(” —'); 

1f lengthícta) < 3 then 


writeln(*ERROR. en la longitud, teclee de nuevo la cuenta ') ; 


Until length(cta) = 3 ; 

For 1 := 1 to 20 do 

begin 
If tabctareg.tabcta[I] = cta then 
begin 
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Este programa consta de ocho procedimientos, cada uno de los cuales 
realiza una determinada misión, repetitiva cada vez. 


EXPLICACION DEL PROGRAMA 


Procedimiento ANCHO 


Este procedimiento sólo pretende completar con blancos, hasta 15 en 
total, el contenido de las variables (origen, destino y concepto), con las ins- 
trucciones siguientes: 


00 
jua 


Procedimiento BUSCA 


Su misión es localizar, dentro de las tablas de cuentas y conceptos, su 
pareja con lo leído en el fichero; veamos alguna instrucción: 


Procedimiento CIERRE 


Cierra los ficheros (Apuntes) y (Listar). 


Procedimiento LEER 


Este procedimiento es muy importante, ya que es el que efectúa la lec- 
tura del fichero y copia los datos a las diferentes variables. Veamos a con- 
tinuación algunas instrucciones con detalle: 


Primero leemos un registro y lo almacenamos en «line». 
ReadIn(Apuntes,line) ; 


Copiamos de la variable «line», a partir de la posición 20, diez caracte- 
res, que almacenamos en la variable «cantidad». 


cantidad := copy(line,20,10) ; 
El bloque que viene a continuación es para poder detectar el separa- 
dor incluido en el fichero, con objeto de que al convertir el número con- 


2 


00 


tenido en la variable «cantidad» de caracteres a número real, no nos dé 
error, y todo sean números. 


cc := pos('.*,cantidad); 
cifra := copy(line,(20+cc),(10-cc)); 
val(cifra,lI,chk) ; 
if (not (chk = 0) ) then 
begin 
writeln((ERROR numero al convertir *); 
CIERRE 
end; 


Las otras instrucciones de este procedimiento sirven tan sólo para tras- 
ladar a las diferentes variables los datos del registro, a partir de sus posi- 
ciones correspondientes. 


Procedimiento EMPEZAR 


Con este procedimiento iniciamos la comprobación de si alguna de las 
dos cuentas del registro leído es igual a la cuenta que tratamos. También 
verificamos si es saldo inicial o no, para poner en la variable «nombre» el 
indicativo de si es una cuenta de «activo o de pasivo», ya que, dependiendo 
de esto, las demás partidas que intervengan en el saldo acumulado se su- 
marán o restarán, según corresponda. 

Después llamamos al procedimiento BUSCA, ANCHO y a continuación 
grabamos en el fichero listar el registro, efectuamos la suma en el acumu- 
lador, ponemos el indicador «EMP» con valor uno, para detectarlo en la 
próxima pasada. Por tanto, si el registro no fuese un saldo inicial, al de- 
tectar el indicador a uno, llamará al procedimiento NOSAL. 


0 


Procedimiento NOSAL 


Con este procedimiento tratamos todos los registros que no sean saldo 
inicial, y dependiendo de cómo esté activada la variable «nombre», suma- 
remos o restaremos del acumulador (suma). Llevaremos el último resul- 
tado a la variable (sumat), en formato de string, y grabaremos el registro 
formado. 
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pl 


Procedimiento PROCESO 


Este tan sólo asigna el fichero Apuntes, lo abre, además asigna un fi- 
chero provisional, llamado Listar, que abre en modo escritura y que es el 
que nos servirá luego para listar el resultado. 

Leeremos todo el fichero Apuntes, secuencialmente, e iremos llaman- 
do por cada lectura a los procedimientos LEER y EMPEZAR, hasta que se 
detecte el fin de fichero, lo cual se efectúa con: 


While not EOF(Apuntes) Do 


LL 


Procedimiento LISTADO 


Con este procedimiento lo que hacemos es, después de cerrado el fi- 
chero Apuntes y Listar, volvemos a abrir el fichero Listar, en modo de lec- 


While not EOF(Listar) Do 


Todos estos procedimientos están incluidos dentro del cuerpo del pro- 
grama, en donde lo primero que hacemos es pedir la cuenta a buscar, che- 
queando la longitud de lo tecleado y comprobando si se encuentra en la 
tabla de cuentas. 

También, después de obtenido el resultado, damos opción de pedir más 
cuentas. Esto lo controlamos con la variable «mascta», que la hemos defi- 
nido como booleana, terminando el bucle cuando tenga el valor de «false». 
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PROGRAMA LISTA 
DE MOVIMIENTOS 


STE programa sirve para obtener del fichero de movi- 
mientos (Apuntes) especificando por el usuario una lista 
de movimientos correspondientes a un número de ellos, 
empezando en uno y a partir de ahí todos los que se quie- 
ran, o se detecte final de fichero. 


Ejemplo de resultado de este programa: 


Listado para los movimientos 1 al 4. 


Mov. Fecha Origen Destino Concepto Ptas. 
10/10/86 BANESTO saldo inicial 125.000 
10/10/86 CAJA CASA saldo inicial 80.000 
10/10/86 C. AHORROS saldo inicial 200.000 
10/10/86 HISPANO saldo inicial 50.000 


PROGRAMA ESCRITO, EN PASCAL 
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regcon = record 

tabcon : array[1..20] of codcta ; 
end ; 

regdcon = record 

tabdcon : array[1..20] of coddes ; 
end ; 


Var 
Tablacta —: file of regcta ; 
Tablades  : file of regdes ; 
Tablacon —: file of regcon ; 
Tabladcon —: file of regdcon; 
tabctareg : regcta; 
tabdesreg  : regdes ; 
tabconreg  : regcon ; 
tabdconreg —:-regdcon >; 
Apuntes TEXT; 
Listar Text; 
simov,primero : boolean ; 
org : string[3] ; 
des :—stringE3]; 
con: string[3]; 
cantidad : string[10]; 
cta : string[3] ; 
lista : string[80] ; 
origen :—string[15]7; 
destino: stringl15]; 
coni : string[3] ; 
concepto :string[151] ; 
11-: real; 
move, movf,1,movi,nmov;,c,chk,nummov-: Integer; 
cifra : string[10] ; 
line : string[35) ; 
dd : string[2]; 
mm: string[2] ; 
aa : string[2] ; 


VAR 

c : integer; 

begin 

For c:= length(origen)+1 to 15 do 
begin 
origen := concat( origen,” ”); 
end ; 

For c:= length(destino)+1 to 15 do 
begin 


destino := concat(destino,* '); 
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end ; 

For c:= length(concepto)+1 to 15 do 
begin 
concepto := concatíconcepto,* '); 
end 

end ; 


Procedure BUSCA ; 
VAR 
cc : Integer ; 
begin 
For cc := 1 to 20 do 
begin 
if-org = tabctareg.tabcta[cc] then 
origen := tabdesreg. tabdes[cc] ; 
end; 
For cc :=-1-to-20-do 
begin 
if des = tabctareg.tabcta[cc] then 
destino := tabdesreg.tabdes[cc] ; 
end; 
For cc := 1 to 20 do 
begin 
if con = tabconreg. tabcon[cc] then 
concepto := tabdconreg. tabdcon[cc] ; 
end 
end ; 


Procedure CIERRE; 
begin 
close (Apuntes) ; close (Listar) ; 
end ; 


Procedure Empezar; 
Begin 
BUSCA; 
ANCHO ; 
writeln(Listar,move:3,” ',dd:2,”/",mm:2,'/",aa:2,” 
concepto,cifra:10) ; 
end; 


Procedure COPIA ; 
VAR 
cc: integer; 

Begin 
cantidad := copy(line,20,10)-; 
cc := pos('.' cantidad); 
cifra := copy(line,(20+cc),(10=cc)); 
val(cifra,1II,chk) ; 


* origen,” ', destino,” 


r 
, 
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if (not (chk = 0 ) ) then 
begin 
writeln('ERROR numero al convertir ”); 
CIERRE 
end ; 
org := copy(line,8,3) ; 
des := copy(line,12,3) ; 
coni := copy(line,16,3) ; 
dd := copy(line,1,2) ; 
mm := copy(line,3,2) ; 
aa := copy(line,5,2) ; 
con := coni ; 
if coni[3] =" ” then 
begin : 
con := copyíconi,1,2); 
con := concatícon,* *); 
end ; 
End ; 
Procedure POSICION ; 
Begin 
NOV :=-NMOV +1; 
ReadIn(Apuntes, line) ; 
if movi = nmov then 
begin 
COPIA >; 
simov := true; 
end ; 
if primero = true then 
begin 
1f nmov <= movf then 
begin 
COPIA ; 
move :=move +1; 
simov := true; 
end 


end 
End ; 


Procedure PROCESO ; 


Begin 

assign(apuntes,'apuntes.mov') ; reset(apuntes) ; 
cirscr ; 

writelnC 0); 

writeln('Deme el numero de movimiento inicial .. ') ; 
writeln(* >); 

readin(movi); 

move := movi ; 
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writeln("¿Cuantos movimientos quiere apartir del movimiento *,movi:3 ); 
writeln(” *); 

read1n(nummov) ; 

movf :=-(movi-—+ nummov)-; 

while not(eof(apuntes)) do 


begin 
POSICION ; 
if simov = true then 
begin 
EMPEZAR ; 
primero := true ; 
simov  := false ; 
end ; 
end 
End ; 
Procedure Listado ; 
Begin 
assign (Listar,*Listar.cta') ; reset (Listar); 
clrscr ; 


Y 


writeln(” Listado para los movimientos numeros 
writeln( "3; 

writeln(” ); 

writeln(" MOV FECHA ORIGEN DESTINO CONCEPTO 


writeln("---  -------- ¡€ A o 


PESETAS —*); 


,movi:3,' a *,(movf .:3 


writeln(" ); 


VHILE not EOF(Listar) Do 
Begin 
readin(Listar,lista) ; 
wríiteln(lista) ; 


end ; 
close (Listar) ; 


End ; 
(068 Cuerpo del Programa Xx) 


BEGIN 

assign(tablacta,'tabla.cta') ; reset(tablacta) 
assign(tablades,'tabla.des') ; reset(tablades) 
assign(tablacon,'*tabla.cto") ; reset(tablacon) ; 
assign(tabladcon,'tabla.dto”) ; reset(tabladcon)-; 
assign(Listar,'Listar.cta') ; rewrite(Listar) ; 


» . ». 
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Este programa consta de ocho procedimientos, cada uno de los cuales 
realiza una determinada misión. 

Los procedimientos: ANCHO, BUSCA, CIERRE y LISTADO funcionan 
igual que en el caso anterior. 


EXPLICACION DEL PROGRAMA 


Procedimiento Proceso 


Asigna y abre el fichero Apuntes, pide después el número del movi- 
miento desde el cual se quiere listar y el número de ellos, esto se alma- 
cena en las varables «movi» y «movf»; a partir de aquí empezamos llaman- 
do al procedimiento POSICION y COPIA. 

Activamos el procedimiento EMPEZAR cuando la variable «simov» tie- 
ne valor de verdadero (en inglés, «true»). 


Procedimiento Posición 


Controla, cada vez que lee del fichero, si es un movimiento que está 
dentro del intervalo pedido; caso de serlo, efectúa la llamada al procedi- 
miento COPIA, poniendo en la variable «simov» el valor de verdadero (en 
inglés, «true»). 


Procedimiento Copia 


Copia los datos del registro seleccionando las variables correspondien- 
es. 


en 


No) 


O 


Procedimiento Empezar 


Prepara el registro seleccionado y lo graba. 

Como podrá observarse, el cuerpo del programa es sumamente senci- 
llo, ya que sólo se compone de la apertura de ficheros, proceso, cierre y 
listado. 
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PROGRAMA LISTA POR FECHAS ll 


STE programa sirve para obtener del fichero de movi- 
mientos (Apuntes) especificando por el usuario una lista 
de movimientos de una fecha determinada, o se detecte fi- 
nal de fichero. 

Ejemplo de resultado de este programa: 


Erstado:para fecha ona ninos aa 10-10-86 

Mov. Fecha Origen Destino Concepto Ptas. 
10/10/86 POSTAL CAJA CASA saldo inicial 80.000 
10/10/86 AHORROS saldo inicial 200.000 
10/10/86 HISPANO saldo inicial 50.000 
10/10/86 saldo inicial 1.250.000 


PROGRAMA FECHA, EN PASCAL 
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end ; 

regdcon = record 

tabdcon : array[1..20] of coddes ; 
end ; 


Var 
Tablacta  : file of regcta ; 
Tablades  : file of regdes ; 
Tablacon : file of regcon ; 
Tabladcon : file of regdcon ; 
tabctareg  : regcta ; 
tabdesreg  : regdes ; 
tabconreg : regcon ; 
tabdconreg : regdcon ; 
Apuntes 2: TEXT ; 
Listar Text; 
sifcha,silista,otrafcha : boolean ; 
org : string[3) ; 
des : string[3] ; 
con : string[3] ; 
fchae —: string[6] ; 
fchaf : string[6] ; 
lista : string[80] ; 
origen : string[i5] ; 
destino : string[15] ; 
con1 : string[3] ; 
concepto :string[15] ; 
I,mov,c,chk,ic,id : Integer ; 
cifra : string[10] ; 
dd : stringl[2] ; 
mm : string[2] ; 
aa : stringl2] ; 
a: string[i] ; 


Procedure DIARIO ; 
Var 
dia : integer ; 
sw : boolean ; 
Begin 
sw := false ; 
Repeat 
writeln(” —'); 
writeln('Deme el dia...') ; 
writeln(” 3; 
read(dia) ; 
writeln(” *); 
if (mot(dia in[1..31])) then 
begin 


writeln(C *); 
writeln(*no valido el dia.. 
sw := false ; 
end 
else 
sw := true ; 
Until sw = true ; 

strídia:2,dd) ; 

1f dd[1] = * * then dd[1] :='0' 

End ; 


Procedure MENSUAL ; 
Var z 
mes : integer ; 
sw : boolean ; 
Begin 
sw := false ; 
Repeat 
writeln(" ); 
writeln('Deme el mes...') ; 
writeln(* *); 
read(mes) ; 
writeln(" *); 
if (not(mes in[1..12])) then 
begin 
writelnC >); 


writeln(” no valido el mes ... 


sw := false ; 

end 

else 

sw := true ; 

Until sw = true ; 

strímes:2,mm) ; 
if mm[(1] =“ * then mm[(1] := '0' 
End ; 


Procedure ANUAL ; 
Var 

anno : integer ; 
sw : boolean ; 


writeln(" 5); 
writeln('Deme el año...') ; 
writeln(C 5); 

read(anno) ; 

writeln(" '); 
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A 


.",m8s:2) ; 


if (not(anmo in[80,.99])) then 
begin 


writeln( 3; 


writeln(” no valido el año ....*,anno:2) ;- 


sw := false ; 

end 

else 

sw := true; 

Until sw = true ; 

str(anno:2,aa) ; 
fchae := concat(dd,mm,aa) ; 
End; 


Procedure ANCHO ; 
VAR 
c-: integer ; 
begin 
For c:= length(origen)+1 to 15 do 
begin 
origen := concat( origen,” ”); 
end ; 
For c:= length(destino)+1 to 15 do 
begin 
destino := concat(destino,' ') ; 
end ; 
For c:= length(concepto)+1 to 15 do 
begin 
concepto := concat(concepto,' *) ; 
end 
end ; 


Procedure BUSCA ; 


VAR 
cc : Integer ; 
begin 
For cc := 1 to 20 do 
begin 


if org = tabctareg.tabcta[cc] then 
origen := tabdesreg.tabdes[cc] ; 
end ; 
For-cc-:= 1 to 20 do 
begin 
if des = tabctareg.tabcta[cc] then 
destino := tabdesreg.tabdes[cc] ; 
end ; 
For cc := 1 to 20 do 
begin 
if con = tabconreg.tabcon[cc] then 
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concepto := tabdconreg.tabdcon[cc] ; 
end 
end; 


Procedure CIERRE; 


begin 
close (Apuntes) ; close (Listar) ; 
end ; 
Procedure Empezar; 
Begin 
if (fchae = fchaf) then 
begin 


sifcha := true ; 
silista := true; 
BUSCA; 
ANCHO ; 


writeln(listar,mov:3,”  ',dd:2,"/",mm:2,"/",aa:2,”  ”, origen,” * destino,” 


*, concepto,” *,cifra:9 ); 
end 
End ; 


Procedure LEER; 
VAR 
II : real ; 
cc : integer ; 
line : string[35] ; 
cantidad :string[10] ; 
Begin 
Readin(Apuntes, line) ; 
mov := (mov+1) ; 
cantidad := copy(line,20,10) ; 
cc := pos(”.” cantidad); 
cifra := copy(line, (20+cc),(10-cc)); 
val(cifra,1l,chk) ; 
if (not (chk = 0 ) ) then 
begin 
writeln("ERROR numero al convertir ”); 
CIERRE 
end ; 
org := copy(line,8,3) ; 
des := copy(line,12,3) ; 
coni := copy(line,16,3) ; 
fchaf := copy(line,1,6) ; 
con := conl ; 
if con1[3] = * ” then 
begin 
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con := copy(coni,1,2); 
con := concatícon,' *) ; 
end ; 


End ; 


Procedure PROCESO ; 
Begin 
assign(apuntes,'Apuntes.mov') ; reset(Apuntes) ; 
assign(Listar,'Listar.cta') ; rewrite(Listar) ; 
while not(eof(apuntes)) do 

begin 

LEER ; 

EMPEZAR ; 

end 
End ; 


Procedure Listado ; 


Begin 

assign (Listar,'Listar.cta') ; reset (Listar); 

clrscr ; 

writeln( ' Listado para fecha ....',dd:2,” / *",mm:2," / *,aa:2 ); 
rnióAÁáA A AAA AAA a 

writeln(* *); 

writeln(*MOV FECHA ORIGEN DESTINO CONCEPTO 

writeln("=-- === q(_E-AKAAáA<«<<«>—>+4A49AAAAA A A AAA 
PESETAS '); 


writeln(” *“); 


VHILE not EOF(Listar) Do 
in 
readln(Listar,lista) ; 
writeln(lista) ; 


end ; 
close (Listar) ; 


DIARIO ; 
MENSUAL ; 
ANUAL 
END ; 


. 
, 


( 0% Cuerpo del Programa **X*xX ) 
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BEGIN 


assign(tablacta,'tabla.cta') ; reset(tablacta) ; 
assign(tablades,'tabla.des') ; reset(tablades) ; 
assign(tablacon,'tabla.cto') ; reset(tablacon) ; 
assign(tabladcon,'tabla.dto') ; reset(tabladcon) ; 
read(tablacta,tabctareg) ; read(tablades,tabdesreg) ; 
read(tablacon,tabconreg) ; read(tabladcon, tabdconreg) ; 
close (tablacta) ; close (tablacon) ; 

close (tablades) ; close (tabladcon) ; 

otrafcha := false ; 

REPEAT 

mov := 0; 

sifcha := false ; silista := false ; 


if sifcha = false then 
begin 
clrscr ; 
writeln(” %); 
writeln(” ATENCION”); 
writeln(” '); 
writeln('no encontrado en el fichero de APUNTES, la fecha 
SD 
writeln(” * ); 
writeln('¿ Quiere volver a empezar ? (s/n) ”')'; 
readin(a) ; 
ifa='s' then 
begin 
clrscr ; 
close(Apuntes ) ; 
end 
else 
begin 
sifcha := true ; 
silista := false ; 
end ; 
end * 


, 
Until sifcha = true ; 
CIERRE ; 
if silista = true then LISTADO ; 
writeln("  %); 
writeln(" ');5 : 
writeln(” ¿ Quiere alguna otra fecha ? (s/n)) ); 
writeln(” *); 
readln(a) ; 
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.. *,dd:2,"/",mm:2, 


EXPLICACION DEL PROGRAMA 


Este programa consta de once procedimientos, cada uno de los cuales 
realiza una determinada misión. 

Los procedimientos: LEER, ANCHO, BUSCA, CIERRE y LISTADO fun- 
cionan igual que en el caso anterior. 

El procedimiento PIDEFCHA, como su nombre indica, tan sólo lo que 
hace es pedir la fecha a través de los procedimientos DIARIO, MENSUAL 
y ANUAL. 


Procedimiento Empezar 


Este forma el registro a grabar, cuando la fecha leída y la fecha pedida 
son iguales; entonces pone a verdadero las variables «sifcha y silista» (en 
ingles, «true»). 


Procedimiento Proceso 


Abre los dos ficheros de Apuntes y Listar, controlando el fin del fichero 
de Apuntes. 

En el cuerpo del programa, mediante la variable «otrafcha», definida 
como booleana, e inicializada a falso (en inglés, «false»), controlamos si 
después de una fecha queremos más o no. 

Con la variable «sifcha», definida igual que la anterior, se controla si la 
fecha solicitada está o no en el fichero. 

Por último, la variable «silista», igualmente definida, controla el listar 
o no el resultado. 
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PROGRAMA CONCEPTOS 12 


- STE programa sirve para obtener del fichero de movi- 
mientos (Apuntes) especificando por el usuario una lista 
de movimientos de un concepto determinado, o se detec- 
te final de fichero. 


Ejemplo de resultado de este programa: 


Ltstado:para el concepto... nidad SAL 

Mov. Fecha Origen Destino Concepto Ptas. 
10/10/86 BANESTO saldo inicial 125.000 
10/10/86 CAJA CASA saldo inicial 80.000 
10/10/86 AHORROS saldo inicial 200.000 
10/10/86 HISPANO saldo inicial 50.000 
10/10/86 POSTAL saldo inicial 1.250.000 


- PROGRAMA CONCEPTOS, EN PASCAL 


Program Jiatacencestotetput) - ; 

Type 

codcta = «stringl3] ; 

——coddes = string[15] ;- 

—regcta = record 

tabcta : array[1. .20] of codcta ; 

AE = == 
- tabdes : array[1..20] of coddes ; A == 

end; - == >— -- — n 
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regcon = record 

tabcon : array[1..20] of codcta ; 
end ; 

regdcon = record 

tabdcon : array[1..20] of coddes ; 
end ; 


Var 
Tablacta  : file of regcta ; 
Tablades  : file of regdes ; 
Tablacon  : file of regcon ; 
Tabladcon : file of regdcon ; 
tabctareg  : regcta ; 
tabdesreg  : regdes ; 
tabconreg  : regcon ; 
tabdconreg : regdcon ; 
Apuntes : TEXT; 
Listar : Text; 
sicon,silista : boolean ; 
org : string[3] ; 
des : string[3] ; 
con : string[3] ; 
sumat : string[10]; 
cantidad : string[10]; 
cone  : string[3] ; 
lista : string[80] ; 
origen : string[15] ; 
destino : string[15] ; 
con : string[3] ; 
concepto :string[15] ; 
suma, II : real ; 
I,mov,c,chk,ic,id : Integer ; 
cifra : string[10] ; 
dd : string[2] ; 
mm : string[2] ; 
aa : stringl2] ; 
a: stringl1] ; 


Procedure BUSCACON ; 
BEGIN 
REPEAT 
writeln(* —*); 
writeln('Deme el concepto a buscar ") ; 
writeln(”  '); 
readí(cone) ; 
writeln(”  *); 
For I := 1 to 20 do 
begin 
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If tabconreg. tabcon[1] = cone then 
begin 
sicon := true ; 
id :=1; 
end ; 
end ; 
if sicon = false then writeln(“Error. *,cone,” no encontrado en tabla '); 
UNTIL sicon = true ; 


END ; 
Procedure ANCHO ; 
VAR 
Cc : integer ; 
begin 
For c:= length(origen)+1 to 15 do 
begin 
origen := concat( origen,” *); 
end ; 
For c:= length(destino)+1 to 15 do 
begin 
destino := concat(destino,* *) ; 
end ; 
For c:= lengthíconcepto)+1 to 15 do 
begin 
concepto := concat(concepto,* *); 
end 
end ; 
Procedure BUSCA ; 
VAR 
cc : Integer ; 
begin 
For cc := 1 to 20 do 
begin 


if org = tabctareg. tabctalcc] then 
origen := tabdesreg. tabdesicc]; 
end ; 
For cc := 1 to 20 do 
begin 
if des = tabctareg.tabctalcc] then 
destino := tabdesreg. tabdesícc] ; 
end; 
For cc := 1 to 20 do 
begin 
if con = tabconreg. tabconfcc] then 
concepto := tabdconreg.tabdcon[cc] ; 
end 
end ; 
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Procedure PROCESO ; 
Begin 
assign(apuntes,'apuntes.mov') ; reset(apuntes) ; 
while not(eof(apuntes)) do 
begin 
LEER ; 
EMPEZAR ; 


End ; 


Procedure Listado ; 
Begin 
assign (Listar,'Listar.cta') ; reset (Listar); 
clrscr ; 
writeln(” Listado para el concepto ....*, tabconreg.tabcon[id] ) ; 
writeln(* 5); 
writeln(C" *); 


writeln("MOV FECHA ORIGEN DESTINO CONCEPTO 

n_n o 
PESETAS —'); 

=== D; 


writeln(”  ”); 


WHILE not EOF(Listar) Do 
Begin 
readln(Listar,lista) ; 
writeln(lista) ; 


end ; 
close (Listar) ; 


End ; 
(ett Cuerpo del Programa tex > 


BEGIN 

assign(tablacta,'tabla.cta') ; reset(tablacta) ; 
assign(tablades,'tabla.des*) ; reset(tablades) ; 
assign(tablacon, 'tabla.cto") ; reset(tablacon) ; 
assign(tabladcon,'tabla.dto') ; reset(tabladcon) ; 
assign(Listar,'Listar.cta') ; rewrite(Listar) ; 

mov := 0 ; suma := 0; 

read(tablacta,tabctareg) ; read(tablades,tabdesreg) ; 
read(tablacon,tabconreg) ; read(tabladcon,tabdconreg) ; 
close (tablacta) ; close (tablacon) ; 

close (tablades) ; close (tabladcon) ; 

sicon := false ; silista := false ; 

clrscr ; 
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EXPLICACIÓN DEL PROGRAMA 


Este programa consta de ocho procedimientos, cada uno de los cuales 
realiza una determinada misión. 

Los procedimientos: PROCESO, LEER, ANCHO, BUSCA, CIERRE y 
LISTADO funcionan igual que en los casos anteriores. 
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Procedimiento Buscacon: 


Este procedimiento lo único que hace es pedir el concepto a buscar 
dentro del fichero Apuntes, lo chequea con la tabla de conceptos, median- 
te las instrucciones siguientes: 


For I: = 1 to 20 do 


begin. 
If tabconreg.tabcon¿Iñ = cone then 
begin 
sicon: = true; 
id: = l; 
end; 
end; 


En este conjunto de instrucciones podemos observar que si el concepto 
se encuentra dentro de la tabla cargada, pondrá a la variable «sicon» el va- 
lor de verdadero (en inglés «true»), valor que hace a este procedimiento 
salir del bucle («Repeat»), ya que en caso de no localizar el concepto en 
la tabla, la variable «sicon» tiene el valor de falso y hará dos cosas: 


1. Escribirá mensaje de error con la instrucción siguiente: 
if sicon = false then writeln (Error. ',cone,' no encontrado en tabla”); 

2. Como tiene valor de falso, no sale del bucle; esto lo controla la ins- 
trucción: 

UNTIL sicon = true; 

En el cuerpo del programa, mediante la variable «sicon», definida como 
booleana e inicializada a falso (en ingles «false»), controlamos si el con- 
cepto que se halla en la tabla también está en el fichero Apuntes, ya que 
en caso de no estar en el fichero, damos la opción de volver a empezar o 
salirnos. 


Por último, la variable «silista» igualmente definida, controla el listar o 
no el resultado. 
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PROGRAMA RESUMEN 
DE UNA CUENTA 


N este programa el usuario define una cuenta, y el progra- 
ma, después de chequear si la cuenta es o no correcta, lee 
secuencialmente todo el fichero, y escribe un informe 
como el siguiente contenido: 


— Lista de los conceptos e importes de las entradas que 
ha tenido la cuenta, y un total de los mismos. 

— Lista de los conceptos e importes de las salidas que ha tenido la 
cuenta, y su total. 

— Por último, el saldo de la cuenta. 


Una muestra de la salida podía ser la siguiente: 


Resúmen deila cuenta a oa da BANESTO 
Importes 
Entradas Pesetas 
Saldo inicial 128.000 
INGRESO 150.000 
Totallentradas arras aora ada 278.000 
Salidas Importes 
COLEGIO 15.000 
GAS 2.500 
Totals lidad cacas OS IanO ie 18.000 
Saldo dela cuenta. aii adas BANESTO 260.000 


== PROGRAMA RESUMEN, EN PASCAL 


Program RESUMEN( output) ; 
Type 
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1083 


end 

else 

begin 
if nombre = *Pasivo' then 
tabsumaP[ic] := tabsumaP[ic] + 11; 
if nombre = “Activo” then 
tabsumaA[ic] := tabsumaA[ic] + II ; 
end; 

End; 


Procedure CIERRE; 
begin 
close (Apuntes) ; 
end ; 


Procedure Nosal ; 
begin 
if (org = cta ) then 
begin 
nombre := “Pasivo” ; 
BUSCA ; 
ANCHO; 
end ; 
if (des = cta ) then 
begin 
nombre := "Activo" ; 
BUSCA; 
ANCHO; 
end ; 
end; 


Procedure Empezar ; 
Begin 
if Corg =cta)-or (des = cta) then 
begin 
if emp = 1 then nosal ; 


End; 
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Procedure LEER ; 
VAR 
cc : integer ; 
line : string[35) ; 
Begin 
Readin(Apuntes, line) ; 
cantidad := copy(line,20,10) ; 
cc := pos('.*, cantidad); 
cifra := copy(line, (20+cc), (10-cc)); 
val(cifra,I1,chk) ; 
if (not (chk =-0 ) ) then 
begin 
writeln('ERROR numero al convertir *); 
CIERRE 
end ; 
org := copy(line,8,3) ; 
des := copy(line,12,3) ; 
coni := copy(line,16,3) ; 
con := coní ; : 
if coni[3] =* * then 
begin 
con := copy(con1,1,2); 
con := concat(con,” *) ; 
end ; 
End ; 


Procedure PROCESO ; 


Begin 
assign(Apuntes,'apuntes.mov') ; reset(Apuntes) ; 
while not(eof(apuntes)) do 

begin - 

LEER ; 

EMPEZAR ; 


End ; 


Procedure Listado ; 
Var 
cc : integer ; 
emp : boolean ; 
cifra : string[10] ; 
suma : real ; 


Begin 
clirscr ; 
writeln( 'Resumen de la cuenta ....',tabdesreg.tabdes[id] ) ; 
A 3 
writeln(” ”); 
“writeln(” Entradas Importes '); 


3 Es 


if not (tabsumaP[cc] = 0) then 

begin 

strí(tabsumaP[cc]:10:0,cifra) ; 

11 := 11 + tabsumapí[cc] ; 
writeln(tabdconreg.tabdcon[cc],* : *,cifra); 
end ; 
E 
if cc > 20 then emp := true ; 

Until emp = true ; 


str(11:10:0,cifra); 

A A ——————— A > 
writeln(* Total SalidaS................ A 
if lista = "Activo" then suma := suma-II ; 

if lista = 'Pasivo' then suma := 11 - suma ; 
strísuma:10:0,cifra) ; 

writelnC 3); 


writeln('"Saldo de la cuenta........ * tabdesreg. tabdes[id],”  *,cifra:10); 
writeln(” SESSZESEZ ” ); 
END; 


(48% Cuerpo del Programa we >) 


BEGIN 

assigní(tablacta,'tabla.cta') ; reset(tablacta) ; 
assign(tablades,'tabla.des') ; reset(tablades) ; 
assign(tablacon,*tabla.cto') ; reset(tablacon) ; 
assign(tabladcon,'tabla.dto') ; reset(tabladcon) ; 


read(tablacta,tabctareg) ; read(tablades,tabdesreg) ; 
read(tablacon, tabconreg) ; read(tabladcon,tabdconreg) ; 
close (tablacta) ; close (tablacon) ; 

close (tablades) ; close (tabladcon) ; 

mascta := true ; 

Repeat 

emp := 0; sicta := false ; 

INICIALIZA ; 

cirscr ; 


REPEAT 
Repeat 

writeln(" *); 

writeln("Deme la cuenta a buscar ”) ; 

UT LO 

readí(cta) ; 

writeln(" *); 

if length(cta) < 3 then 

writeln(”ERROR. en la longitud, teclee de nuevo la cuenta ”) ; 

Until lengthícta) = 3; 
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EXPLICACION DEL PROGRAMA 


Este programa consta de ocho procedimientos, cada uno de los cuales 
realiza una determinada misión. 

Los procedimientos: PROCESO, LEER, ANCHO y CIERRE funcionan 
igual que en los casos anteriores. 


Procedimiento Inicializa 


Pone a cero cada uno de los contadores de Activo y Pasivo, definidos 
como tablas, de igual número de filas que los conceptos existentes, en las 
tablas de conceptos; veamos sus instrucciones: 
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Procedimiento Busca 


— Primero localiza el concepto leído en el fichero de Apuntes, con la 
tabla de conceptos, y guarda el índice que ocupa dicho concepto en 
la tabla, asignando a la variable «conceptos» la descripción de la 
tabla: 


— Si es «saldo inicial», copia los datos necesarios, y dependiendo que 
la cuenta sea destino u origen, asignamos a la variable «lista» el va- 
lor de «activo o pasivo»: 


— Si no es «saldo inicial», según el contenido de la variable «nombre», 
sea activo O pasivo, sumaremos el valor correspondiente en su tabla. 


LTUS 


Procedimiento Empezar 


Aquí si alguna de las cuentas de origen o destino es igual a la cuenta 
pedida, quiere esto decir que es un registro bueno, en cuyo caso se pro- 
cede a buscar si el concepto es «saldo inicial». Caso de serlo, se llama al 
procedimiento BUSCA Y ANCHO, activando la variable «emp» con el va- 
lor de 1, con lo cual al volver a entrar en este procedimiento, hará que sal- 
temos (bifurcar) al procedimiento NOSAL. 

Veamos las instrucciones: 


mi 
7 


Procedimiento NOSAL 


En este procedimiento, si la cuenta origen es igual a la cuenta solicita- 
da, asignamos a la variable (nombre) los caracteres de “Pasivo”, proce- 
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Si por el contrario, la cuenta destino es la que es igual a la cuenta so- 
licitada, asignaremos a la variable (nombre) los caracteres de “Activo”, y 
como en el caso de la cuenta origen, también llamaremos a Busca y An- 
cho. Veamos las instrucciones: 


Procedimiento Listado 


— Controla si el contenido de la variable «lista» tiene «Activo o Pasi- 
vo» para escribir el saldo inicial en la parte de entradas o en sali- 
das. Veamos las instrucciones: 


LUZ 


— Después, mientras las tablas donde hemos almacenado los impor- 
tes tengan valor distinto de cero y no se llegue al final, se escribirá 
su contenido; esto se hace con las instrucciones siguientes: 


— Igual sería para la tabla de Pasivo. 


En el cuerpo del programa controlamos que la cuenta a buscar esté en 
la tabla o nos dé un mensaje de error. 


Si la variable «sicta» tiene valor verdadero, ejecutará el procedimiento 
Listado. 


Si su contenido es falso, entonces nos escribirá un mensaje. Veamos 
sus instrucciones: 
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PROGRAMA CIERRE DE CUENTAS 4 


STE programa realiza lo siguiente: 

Pide la fecha de cierre de cuentas, mediante los pro- 
cedimientos: DIARIO, MENSUAL y ANUAL. 

— Asigna a la variable (cta.) la primera cuenta de la ta- 
bla, escribiendo en la pantalla «Cierre de la cuenta... 
BEC»; a continuación se llama con el procedimiento Pro- 
ceso. Veamos sus instrucciones: 


En el procedimiento Proceso empezamos cerrando el fichero Apun- 
tes, y lo volvemos a abrir con objeto de situar el puntero al princi- 
pio del fichero; esto se hace por cada cuenta de la tabla, leyéndose 
todo el fichero y efectuándose el cálculo del saldo de la cuenta. Vea- 
mos sus instrucciones: 
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— Los procedimientos Leer y Empezar no tienen diferencia con los 
hasta ahora expuestos. 

— El procedimiento Busca, que es llamado por los procedimientos 
Empezar y Nosal (según que sea el registro saldo inicial o no), ac- 
tiva para cada cuenta, en las variables (cuenta y nombre), la com- 
binación de: 


«Origen y Pasivo» 
«Destino y Activo» 


claves que nos servirán para ir formando el saldo correcto de la 
cuenta que tratemos. Veamos las instrucciones: 


Asignación: 


Después de la asignación, efectúa la suma aritmética en el contador, de- 
pendiendo de la asignación hecha anteriormente. Veamos sus instruccio- 


nes: 
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— Escribe en un fichero provisional los datos de la cuenta leída y calcu- 
lada, que, dependiendo sea una cuenta de origen o de destino, pon- 
drá como saldo inicial para nueva cuenta dicha cuenta. Veamos sus 
instrucciones: 


— Conserva el criterio de la cuenta, es decir, si una cuenta era origi- 
nalmente de origen después del cierre, sigue siendo de origen, aun- 
que el resultado del cálculo del saldo sea negativo. 

— Si una cuenta no se encuentra en el fichero, lo detecta y escribe un 
mensaje como éste: 


La cuenta BEC no se encuentra en el fichero 


— Pide un nombre para guardar el fichero de Apuntes antiguo, lo re- 
nombra con el nombre dado. 


Al provisional entonces le da el nombre primitivo de Apuntes.mov. 
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Programa Cierre, en Pascal 


Program cierre(output) ; 
Type 
codcta = string[3] ; 
coddes = string[15]; 
regcta = record 
tabcta : array[1..20] of codcta ; 
end; 


regcon = record 

tabcon : array[1..20] of codcta ; 
end; 

Var 

Tablacta—: file of regcta ; 

Tablacon : file of regcon ; 

tabctareg  : regcta ; 

tabconreg —: regcon; 

BALANCE EX; 

Apuntes TEXTS 

Nombre + string[6) ; 

titulo  : string[8] ; 

titulof —— string[12]; 

sicta,nocta : boolean ; 

org : string[3] ; 

des : string[3] ; 

con: stringl3]-; 

cantidad : string[10]; 

cta —: string[31 ; 

lista : string[6] ; 

coni-: stringl[31 ; 

11 ,tabsuma : real; 

I,c,chk,ic,emp,id : Integer ; 

cifra : string[10) ; 

dd : stringf2] ; 

mm: stringl2]; 

aa : string[2]; 

fcha : string[6) ; 

cuenta : string[7] ; 


Procedure DIARIO ; 
Var 

dia : integer ; 

sw : boolean ; 
Begin 

sw := false ; 
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Repeat 
writeln(" ); 
writeln('Deme el dia de cierre de cuentas”) ; 
writeln(" '); 
read(dia) ; 
writeln(” *); 
if (not(dia in[1..31])) then 
begin 
writeln(" *):; 
writeln('*no valido el dia....', dia:2) ; 
sw := false ; 
end 
else 
sw := true ; 
Until sw = true ; 
strí(dia:2,dd) ; 
if dd[1] = * * then dd[1] := "0" ; 
End ; 


Procedure MENSUAL ; 
Var 


writeln(”  ); 
writeln(*Deme el mes...*) ; 
writeln(” *); 
readímes) ; 
writeln(" '); 
if (not(mes in[1..12])) then 
begin 
writeln(” *):; 
writeln(* no valido el mes ....',mes:2) ; 
sw := false ; 
== , 
else 
sw := true; 
Until sw = true ; 
str(mes:2,mm) ; 
if mm[1] =* * then mm(1] := “0” ; 
End ; 


Procedure ANUAL ; 
Var 

anno : integer ; 
sw : boolean ; 


Begin 
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writeln("*  *); 
writeln('Deme el año...') ; 
writeln(” DD; : 
readí(anno) ; 
writeln(* *); 
if (not(anno in[80..99])) then 
begin 
writeln(* *)3; 
writeln(* no valido el año ....*,anno:2) ; 
sw := false ; 
end 
else 
sw := true ; 
Until sw = true ; 
str(anno:2,aa) ; 
fcha := concat(dd,mm,aa) ; 
End ; 


Procedure BUSCA ; 
VAR 
cc : Integer ; 
begin 
nocta := false ; 
if con = "SAL" then 


begin 
nombre := 'Pasivo” ; 
cuenta := “origen *; 
if des = cta then 
begin - 
cuenta := 'destino” ; 
nombre := “Activo” ; 
end ; 


end ; 

if (nombre = 'Pasivo') and (cuenta 
tabsuma := tabsuma - II ; 

if (nombre = “Pasivo”) and (cuenta = "origen ”) then 
tabsuma := tabsuma + 11 ; 

if (nombre = 'Activo') and ( cuenta = 'destino') then 
tabsuma := tabsuma + II ; 

if (nombre = 'Activo”) and (cuenta = "origen * ) then 
tabsuma := tabsuma - 11 ; 


* destino”) then 


End; 


Procedure CIERRE; 
begin 
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close (Apuntes) ; 
close (Balance) ; 
end ; 


Procedure Nosal ; 
begin 
if (org = cta ) then 
begin = 
nombre := "Pasivo" ; 
BUSCA; 
end ; 
if (des = cta ) then 
begin 
nombre := 'Activo” ; 


Procedure Empezar ; 
Begin 
if (org = cta) or (des = cta) then 
begin 
if emp = 1 then nosal ; 
if (con = 'SAL” >) then 
begin 
BUSCA ; 
emp := 1; 
end ; 
end 


End ; 


Procedure LEER; 
VAR 
cc : integer ; 
line : string[35] ; 
Begin 
Readin(Apuntes, line); 
cantidad := copy(line,20,10) ; 
cc := pos('.” cantidad); 
cifra := copy(line,(20+*cc),(10=cc)); 
val(cifra,Il,chk); 
if (mot (chk =-0 )-) then 
begin 
writeln("ERROR numero al convertir ”>); 
CIERRE 
end; 
org := copy(line,8,3) ; 
des := copy(line,12,3) ; 
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coni := copy(line,16,3) ; 
con := conl ; 
if coni[3] = * * then 


begin 
con := copy(con1,1,2); 
con := concat(con,” *) ; 
end ; 
End ; 


Procedure GRABAR ; 
Var 
cc,c : integer ; 
“num : boolean ; 
cifra : string[10] ; 
suma : real ; 


Begin 

suma := tabsuma ; 

org := cta ; 

des :="  *; 

con := "SAL" ; 

if cuenta = 'destino' then 
begin 
des := cta ; 
A 
suma := tabsuma ; 


end ; 
str(suma:10:0,cifra) ; 
num := false ; 
ESE 
Repeat 
if not(cifra[c] = * *) then 
begin 
cc :=e-1:; 
cifrafcc]:=".*; 
num := true ; 
end 
else 
ec :=c+H; 
Until num = true; 


writeln(Balance,fcha,* *,org,” *,des,” *,con,* *,cifra ) ; 


END; 
Procedure PROCESO ; 


Begin 
close(Apuntes) ; 
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assign(Apuntes,'apuntes.mov') ; 
reset(Apuntes) ; 
tabsuma := 0; 
emp :=0; 
while not(eof(apuntes)) do 
begin 
LEER ; 
EMPEZAR ; 


End ; 
( tt Cuerpo del Programa *x* >) 


BEGIN 
assigní(tablacta,'tabla.cta') ; reset(tablacta) ; 
assign(tablacon,'“tabla.cto') ; reset(tablacon) ; 
read(tablacta,tabctareg) ; 
read(tablacon, tabconreg) ; 
close (tablacta) ; close (tablacon) ; 
assign(Balance,'Apun_tes.mov') ; rewrite(Balance) ; 
I0=1> 
sicta := true ; 
clrscr ; 


DIARIO ; 
MENSUAL; 
ANUAL ; 
Repeat 
cta := tabctareg.tabcta[ID] ; 
if not (cta="  *) then 
begin 
writeln("  *); 
writeln(* Cierre de la cuenta .... *,cta); 
writeln(” — ”); 
10-:=-1D-+-1-; 
nocta := true ; 
PROCESO ; 
if nocta = false then 
GRABAR 
else writeln(* La cuenta *,cta,' no se encuentra en el fichero *) ; 
end 
else 
sicta := false ; 
Until sicta = false ; 


CIERRE ; 


Repeat 


writeln(" '); 
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writeln(” Deme el nombre con que quiere guardar el Fichero de Apuntes ”'); 
writeln(” del que hemos partido ”); 
writeln(” ...... máximo 8 caracteres ....... Sh 
writeln(* >; 
readin(titulo) ; 
if length(titulo)<=0 then 

writeln('"ERROR. debe teclear un nombre ”) 
else 

sicta := true ; 

Until sicta = true ; 

titulof := concat(titulo,(* .mov”)); 
rename(Apuntes, titulof) ; 
rename(Balance,'*Apuntes.mov” ) ; 


END. 
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APENDICE 


El programa que se expone a continuación es la versión en BASIC del 
programa anteriormente visto en PASCAL. 

Este programa está realizado para IBM pc,xt,at y compatibles, y puede 
ser utilizado por los usuarios de MSX que tengan unidad de disco, con sólo 
cambiar los argumentos de todas las sentencias LOCATE. Donde ponga LO- 
CATE Y,X, X e Y pueden ser números o letras, los usuarios de MSX ten- 
drán que poner LOCATE X,Y. O sea, invertir el orden de los argumentos. 

Este programa, por su manera de trabajar y por utilizar varios archivos 
a la vez, no puede ser utilizado en aquellos ordenadores que carezcan de 
unidad de disco. 

En caso de que usted tenga una unidad de disco en su Amstrad, Com- 
modore o Spectrum, tendrá que hacer las modificaciones pertinentes en 
el programa en todo lugar donde se abran o cierren ficheros y se lean o 
se graben fichas. 


26 LOCATE 20,15:PRINT "ELIGE OPCION "s:INPUT OP:*IF OP<1 OR OP>T THEN BEEP:BEEP:G 
OTO 26 

27 1F OP>3 THEN GOSUB 9800 ” lectura tablas 

29 ON OP GOTO 100,1000,1400,1700,2200,2300,2400,2500 

100 REM SEKLBLLLLES 

110 REM £ TABLAS £ 

120 REM 688848888 

130 REM 

150 OPEN ”0",1,"TABLA.CTA" 
160 OPEN "0”,2,"TABLA.DES” 
170 OPEN ”0",3,"TABLA.CTO" 
180 OPEN ”0”,4,"TABLA.DTO" 
190 CLS 

200 PRINT "Deme los codigos cta/concepto ” 

210 PRINT "y teclee END para salir del bucle” 

220 PRINT 

230 FOR I=1 TO 20 

240 TABCTASMD=" "“TABDESS(M=" "*TABCPTOS0)=" "“TABDCPTOSM=" ” 

250 NEXT 1 

260 FOR 1=1 TO 20 

270 PRINT "Entre el codigo de cuenta ... (max 3 posiciones)” 

280 INPUT CTAS 

290 IF LEN(CTAS)>3 THEN GOTO 280 

300 II=1-1 - 

310 IF CTAS="END" THEN GOTO 390 

320 TABCTASM=CTAS 

330 PRINT 

340 PRINT "Entre la descripcion de la cuenta ... (max 15 posiciones)” 
350 INPUT TABDES$ - 

360 IF LEN(TABDES$(0))>15 THEN GOTO 350 

370 PRINT 

3B0 NEXT 1 

390 CLS 

400 FOR I=1 TO 20 

410 PRINT "Entre el codigo del concepto ... (max 3 posiciones)” 

420 INPUT CTAS$ 

430 IF LEN(CTAS)>3 THEN GOTO 420 

440 TII=I-1 

450 IF CTAS$="END" THEN GOTO 530 

460 TABCPTOS0)=CTAS 

470 PRINT 

A80 PRINT "Entre la descripcion del concepto ... (max 15 posiciones)" 
490 INPUT TABDCPTOS() 

500 IF LEN(TABDCPTOS())>15 THEN GOTO 490 


510 PRINT 

520 NEXT 1 

530 CLS 

540 PRINT "TABLA DE CUENTAS Y DESCRIPCION" 
550 PRINT "o —» 
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B40 FOR I=1 TO IM:PRINT 43,7 
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EN 4) O DE DESTINO (2) 


1455 INPUT $S,FE 


="z"".L.0=3:GOSUB 9000:CTA! 


RINT "DIGAME EL CODIGO DE LA CUEN 


1620 1F TABCONS(4)=C 1 


1633 X=1:Y=20:W$="0":M6="9"2L 


1710 CLS:iLIMEGO,U (319,20),3,B 


134 


1715 LOCATE 2,2:2FRINT "CONTABILIDAD".LOCATE 2,201PRINT "LISTADO APUNTES” 
1720 DATA LISTADO POR FECHA,LISTADO POR CUENTA,LISTADO POR CONCEPTO,LISTADO POR 
MOVIMIENTOS, MENU PRINCIPAL - 

1725 RESTORE 1720:T=5:FDR 1=1 TO TiREAD AS = 

1728 LOCATE 10+T,1:PRINT USING "HB. 5 R"51,AS¿NEXT 

1730 LOCATE 18,15PRINT "ELIGE OPCION "¿sINPUT OP : 
1735 1F OP<1 OR OP>T THEN BEEP:BEEP:GOTO 1730 
1790 ON OP GOTO 1800,1900,2000,2100,3000 

1800 REM EXEXEXRIELRERERES - 

1801 REM £ LISTADO FECHA £ 

1902 REM esseresasaseseses 

1810 MOV=0:SIFCHA=1:SILISTA=1 

1815 CLS = 

1820 X=1:Y=1:G0SUB 9500” rutina fecha 

1830 IF SIFOHA=0 THEN 1860 

1835 CLSIPRINT. ¿PRINT "ATENCION“:PRINT > = - 
1840 PRINT "No encontrada en el fichero de APUNTES"ÍPRINT USING "la fecha +70 
/48"5DD,MM, AR 

1845 PRINT ¿PRINT " QUIERE VOLVER A EMPEZAR? (S/N)":BOSUB 20000 

1850 IF CO=1 THEN CLS:CLOSE M1:G0TO 1820 ELSE SIFCHA=0:SILISTA=1 

1860 IF SILISTA=0 THEN GOSUB 4200 :GOSUB 21000:WIDTH 40” rutina listado 

1855 PRINT ¿PRINT ¿PRINT " QUIERE ALGUNA OTRA FECHA? (S/N)".GOSUB 20000 

1870 1F CO=1 THEN 1810 - : 
1875 GOTO 1700 

1900 REM KREIIRESEREREAEE EEES 
1901 REM £ LISTADO cuentas £ 
1902 REM tE8488EREAEESAEAEAS 
1910 CLS:MOV=0:SUMA=D:EMP=0:SICTA=1 

1915 PRINT ¿PRINT "DEME LA CUENTA A BUSCAR*".PRINT 

1920 X=1:Y=4:LO=3:$="A""M8="z".GOSUB 9000:CTAS$=D$ 

1923 FOR 1=1 TO. 1:1F TABCTASM=CTAS THEN SICTA=0:ID=1 

1930 IF SICTA=1 THEN PRINT "ERROR ",CTAS,” no encontrada en la tabla":GOTO 1920 
1935 GOSUB 4600 ” proceso2 

1940 CLOSE MICLOSE M2 

1960 IF SICTA=0 THEN BOSUB 4700:G60SUB Z21000:WIDTH 40” rutina listado2 

1965 PRINT ¿PRINT ¿PRINT " QUIERE ALGUNA OTRA CUENTA? (S/N)"»BOSUB 20000 

1970 IF CO=1 THEN 1910 : 

1975 GOTO 1700 

2000 REM KSERIIEESIASEEALELE 

2001 REM £ LISTADO CONCEPTO £ 

2002 REM EREEREAECALAAIA AA 

2010 SICON=1:SILISTA=1 

2015 CLS 

2020 IF SICON=1 THEN BOSUB 4300:SICON=1 > rutina buscacon2 

2025 GOSUB 4400 ” rutina proceso2 

2030 IF SICON=0 THEN 2060 

2035 CLS:PRINT ¿PRINT "ATENCION":PRINT 
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2040 PRINT “No encontrada en el fichero de APUNTES":.PRINT "el codigo de concept 
o ",CONES 

2045 PRINT :*PRINT " QUIERE VOLVER A EMPEZAR? (S5/N)".BOSUB 20000 

2050 IF CO=1 THEN CLS:CLOSE 412GOTO 2020 ELSE SICON=12:SILISTA=1 

2060 IF SILISTA=0 THEN GOSUB 4500:G0SUB 21000:WIDTH 40” rutina listado2 
2065 PRINT ¿PRINT 2PRINT " QUIERE ALGUN OTRO CONCEPTO? (S/N)".GOSUB 20000 
2070 IF CO=1 THEN 2010 

2075 BODTO 1700 

2100 REM SSRREFEARACCRAAAE 

2101 REM % LIS. POR MOVIM. E 

2102 REM EXEEKEALAAAIAII ARS 

2110 CLSiINMOV=0:PRIMERO=1:SIMOV=0 

2115 GOSUB 4800” PROCESDA 

2120 CLOSE MECLOSEWZ 

2125 GOSUB 49001B0SUB 21000:WIDTH 40” rutina LISTADO4 


2210 SICTA=1:EMP=0:NOMBRES="":LISTAS="" 

2220 FOR 1=1 TO 20: TABSUMAP ()=0:TABSUMAA (1) =0:NEXT 

2225 CLS¿PRINT 2¿PRINT "DEME LA CUENTA A BUSCAR.” 

2230 X=1:Y=3:LO=3:W18="A"2»M6="z".GOSUB 9000:1F LENOS)<3 THEN BEEP:GOTO 2230 
2235 CTA$=D6 

2240 FOR I=1 TO 11 

2245 1F TABCTASID)=CTAS THEN ID=I:SICTA=0 

22530 NEXT 

2255 IF SICTA=1 THEN PRINT "ERROR, ",CTAS$," no encontrada en la tabla.".»GOTO 223 
O 

2260 SICTA=1 

2265 GOSUB 6000 ” procesoR 

2270 CLOSE 41 

2275 1F SICTA=0 THEN WIDTH B0:GOSUB 6500:GODSUB 21000:WIDTH 40:G0TO 2285” listado 
R 

2280 PRINT ¿PRINT "La cuenta ”,CTAS,” no tiene movimientos.” 

2285 PRINT :PRINT " Quiere alguna otra cuenta? (S/N)".GOSUB 20000 

2290 IF CO=1 THEN 2210 

2295 GOTO 20 

2300 REM ERKEREIFCAAAEAIAES 

2301 REM £ RESUMEN FECHA  £ 

2303 REM ERKERESACICAA A 

2315 SICTA=1EMP=0:SIFCHA=0: NOMBRE $="":LISTAS="" 

2320 FOR I=1 TO 20: TABSUMAP (1)=0:TABSUMAA ()=0:NEXT 

2325 CLS:¡PRINT ¿PRINT "DEME LA CUENTA A BUSCAR." 

2330 X=10Y=3:LO=32W16="A".M6="z".GODSUB 9000:1F LEN(D$)<3 THEN BEEP:GOTO 2330 
2335 CTAS$=DS 

2340 FOR 1=1 TO 11 

2345 1F TABCTAS(M=CTAS THEN ID=I:SICTA=0 

2350 NEXT 
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2355 IF SICTA=1 THEN PRINT "ERROR, ”,CTAS," no encontrada en la tabla.".G0TO 233 
o 

2360 X=1:Y=6:G0SUB 9500:FECHAS=AAS$+MMS+DDS” FECHA 

2365 GOSUB 7000 ”? procesoRF 

2370 CLOSE +1 

2373 1F SICTA=0 AND SIFCHA>O THEN WIDTH B0:G60SUB £500:60SUB Z1000:WIDTH 40:B0TO 
2385 listadoR 

2380 PRINT ¿PRINT "La cuenta ",CTAS," no tiene movimientos." 

2385 PRINT 2+PRINT "¿Quiere alguna otra cuenta? (9/N”".G0SUB 20000 


2390 1F CO=1 THEN 2315 
2395 GOTO 20 


2400 REM EREREESFAACAAIAA 

2401 REM £ CIERRE x 

2403 REM ESESLLECAIAEE IAE S 

2413 OPEN "0”,1,"APUN TES.MOV" 

2415 SICTA=0:1D=1 

2425 CLS:X=1:Y=2:180SUB 9500 

2430 CTAS=TABCTAS (1D) 

2435 1F CTAS="" THÉN 2465 

2440 WIDTH BO0:PRINT *PRINT "CIERRE DE LA CUENTA ... "¿CTAS:PRINT 
2445 1D=ID+1 

24530 NOCTA=0 

2453 GODSUB 8000 

2455 IF NOCTA=1 THEN GOSUB 8400 ELSE PRINT "ERROR, ",¿CTAS,” no encontrada en la 
tabla.” 

2460 GOTO 2430 

2465 CLOSE M12:G0SUB 21000 

2470 CLS:PRINT *PRINT "Deme el nombre con el que quiere guardar el fichero de AP 
UNTES del que hemos partido” 

24753 PRINT "maximo 8 caracteres."¿PRINT 

2480 X=1:Y=7:LO=B:W$="A":M$="2".G0SUB 9000: TITULOS=D$+".M04" 
2485 NAME "APUNTES.MOV” AS TITULOS 

2490 NAME "APUN TES.MOV" AS "APUNTES.MOV" 

2495 GOTO 20 

25300 RESETISYSTEM 

3000 GOTO 20 

4000 ” RUTINA PROCESO! 

4010 OPEN "I",1,"APUNTES.MOV" 

24015 OPEN ”0”,2,"LISTAR.CTA” 

4020 WHILE EOF(1)=0 

4025 INPUT 81,FFECHAS,ORG$,DES$,CON$,PESETAS 

4030 MOV=MOV+1 

4035 1F FECHASOFFECHAS THEN 4060 

4040 SIFCHA=0:SILISTA=0 

4045 GOSUB 4100 ” rutina busca 

4055 GOSUB 5400 ” rutina grabacion 

4060 WEND:ICLOSE HUCLOSE $2RETURN 

4100 ” RUTINA busca 

4110 FOR I=i TO 11 
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4115 IF ORG$=TABCTAS() THEN ORIGENS=TABDES$ (1) 
4120 IF DESS=TABCTAS() THEN DESTINOS=TABDESS (1) 


4125 NEXT 

4130 FOR I=1 TO JJ > 
4135 IF CONS$=TABCONSd) THEN CONCEPTOS=TABDCONS (1) 

4140 NEXT 

4150 RETURN 

4200 ” RUTINA listadol 

4203 WIDTH B0:0PEN "I”,1,"LISTAR.CTA” 

4210 PRINT USING “LISTADO PARA LA FECHA 48/48/4%"5DD,MM,A/ 
AA -PRAAA———_———— ___—_———— a 

4220 GOSUB 5000 ” rutina cuerpo general 

4225 CLOSE *1 

4230 RETURN 

4300 ” rutina buscacon 

4305 PRINT :PRINT "DEME El CONCEPTO A BUSCAR":+PRINT 

4310 X=1:Y=4:L0=3:W8="A":M$="2".GOSUB 9000:CONE$=D$:PRINT 
4315 FOR I=1 TD JJ 

4320 IF CONES$=TABCONS$(D) THEN SICON=021D=I 

4325 NEXT 

4330 IF SICON=1 THEN PRINT "ERROR, ”,CONES,” no encontrado en la tabla":GO0TO 431 
o 

4340 RETURN 

4400 ” RUTINA PROCESOS 

4410 OPEN "I”,1,"APUNTES.MOV" 

4415 OPEN ”0”,2,"LISTAR.CTA" 

4420 WHILE EOF()=0 

4425 INPUT 41,FECHAS,ORG$,DES$,CONS,PESETAS 

4430 MOV=M0V+1 

4435 DD=VAL (LEFTS (FECHAS$,2)):MM=VAL MID$ (FECHAS$,3,21):AA=VAL (RIGHT $ (FECHAS, 2)) 
4438 IF CONES$<>CONS THEN 4460 

4440 SICON=0:SILISTA=0 

4445 GOSUB 4100 ” rutina busca 

4455 GOSUB 5400 ” rutina grabacion 

44650 WEND:CLOSE MHICLOSE $2:RETURN 

4500 ” RUTINA listado3 

4505 WIDTH B0:0PEN "I”,1,"LISTAR.CTA" 


4600 * RUTINA PROCESOZ 

4610 OPEN *I”,1,"APUNTES.MOV” 

4615 OPEN ”0",2,"LISTAR.CTA” 

4620 WHILE EDF(19=0 

4625 CON1$="":INPUT 41,FECHAS$,ORG$,DES$,CON$,PESETAS 

24630 MOV=M0V+1 

46353 DD=VAL LEFTS (FECHAS, 2)):MM=VAL MIDS (FECHAS, 3,2)):M4=VAL (RIGHTS (FECHAS, 2)) 
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4638 IF ORGS$=CTAS OR DES$=CTAS THEN ELSE 4670 

4640 IF EMP=1 THEN GOSUB 4680 ” NOSAL 

4643 1F CON$<O"SAL” THEN 4670 

4650 GOSUB 4100: CONCEPTOS="SALDO INICIAL” 

4655 GOSUB 5400:PRINT 82,PESETAS 

4560 SUMA=SUMA+PESETAS:EMP=1 

4670 WEND:RETURN 

4680 > nosal 

4685 IF ORGS=CTAS THEN SUMA=SUMA-PESETAS:GOSUB 4100 
4690 IF DES$=CTAS THEN SUMA=SUMA+PESETAS:GOSUB 4100 
4699 GOSUB 5400:PRINT 4$2,SUMA:RE TURN 

4700 ? RUTINA listado2 

4703 WIDTH B0:0PEN "I",1,"LISTAR.CTA” 

4710 PRINT "LISTADO PARA LA CUENTA ... "¿TABDES$ (1D) 
A 2] 
4720 GOSUB 5100 ”? rutina cuerpo general 


4810 OPEN "I",1,"APUNTES.MOV" 

4815 OPEN ”0”,2,"LISTAR.CTA” 

4820 CLS:PRINT ¿PRINT "DEME EL NO. DE MOVIMIENTO INICIAL” 

4825 X=1:Y=4:LO=3:W$="0".M6="9".GOSUB 9000:MOVI=VAL (D$):MOVE=MOVI 

4830 PRINT " CUANTOS MOVIMIENTOS QUIERE A PARTIR"»PRINT USING "DEL MOVIMIENTO 88 
N¡MOVI2PRINT - 
4835 X=1:Y=8:GOSUB 9000:NUMMOV=VAL (D$) 

4840 MOVF=MOVI+NUMMOV 

4850 WHILE EDF 1=0 

4855 NMOV=NMOV+1:INPUT 41,FECHAS,DRG$,DESS,CON$,PESETAS 

4860 IF MOVI=NMOV THEN SIMOV=0 

4865 IF PRIMERO=0 THEN IF NMOV<=MOVF THEN MOVE=MOVE+1:SIMOV=0 


4880 DD=VAL LEFTS (FECHAS, Z2)):MM=VAL MIDS (FECHAS,3,2)):MM=VAL (RIGHTS (FECHAS, 2)) 
4885 MOV=MOVE:BOSUB 5400 

4890 PRIMERO=0:SIMOV=1 

4900 ” RUTINA listados 

4905 WIDTH BO:0PEN "T”,1,"LISTAR.CTA" 

4910 PRINT USING "LISTADO DE MOVIMIENTOS NOS. — 48% AL ARI" MOVI,MOVF-1 
AS PR —_ A  — 

4920 GOSUB 5000 ” rutina cuerpo general 

4925 CLOSE m1 

4730 RETURN 

5000 >? RUTINA cuerpo general de listados 

5010 PRINT "MOV FECHA ORIGEN DESTINO CONCEPTO 
5020 PRINT "== === —-—- o 

a 
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53973 1F LISTAS 


"PA 


¡SIVO” TH 


HORRRROGTA! 


EN IX=IX+CIFRINITIPRINT USING "  K£ 


BDCONS (1), TABSUM 


ARM 


7120 IF DES$=CTAS$ THEN NOMBRES$="ACTIVO".GOSUB 7200 

7130 RETURN 

7200 ” RUTINA buscaRF 

7210 1F FECH$>FECHA$ THEN RETURN 

7215 FOR I=1 TO JJ 

7220 1F CONS=TABCONS(D) THEN CONCEPTOS=TABDCONS$ (1):1C=1 

7223 NEXT 

7230 IF CONS$="SAL” THEN SALINITS="SALDO INCIAL":CIFRINIT=PESETAS:LISTAS="PASIVO" 
:1F DESS$=CTAS THEN LISTAS="ACTIVO":GOTO 7245 

7235 1F NOMBRES$="PASIVO” AND FCHA$<=FECHAS THEN TABSUMAP(1C)=TABSUMAP U1C)+PESETA 
s 
- 7240 IF NOMBRE$="ACTIVO"” AND FCHA$<=FECHAS$ THEN TABSUMAA (1C)=TABSUMAA(U1C)+PESETA 
Ss -. 

7245 SIFCHA=SIFCHA+1 

7250 RETURN 

8000 >” RUTINA procesoC 

BO10 OPEN "I",2,"APUNTES.MOV" 

8015 TABSUMA=0:EMP=0 

8020 WHILE EOF(2)=0 

B023 INPUT 42,FECHS,ORG$,DES$,CONS,PESETAS 

BOZO IF ORG$=CTAS$ OR DES$=CTAS THEN ELSE 8050 

B035 IF EMP=1 THEN GOSUB 8100 > NOSAL 

8040 IF CON$="SAL”" THEN GOSUB 8200:EMP=1 

8050 WEND:CLOSE 42 

B060 RETURN 

B100 ? RUTINA nosal 

2110 IF ORB$=CTAS THEN NOMBRES="PASIVO":GOSUB 8200 

B120 IF DES$=CTAS THEN NOMBRES="ACTIVO".GOSUB 8200 

B130 RETURN 

8200 ” RUTINA buscaC 

8220 NOCTA=1:1F CONS$<>"SAL" THEN 8240 

8225 NOMBRE$="PASIVO":CUENTAS="ORIGEN” 

8230 IF DESS$=CTAS$ THEN CUENTAS="DESTINO".NOMBRES="ACTIVO” 

8240 IF (NOMBRE$="PASIVO” AND CUENTAS="DESTINO" OR (NOMBRE$="ACTIVO" AND CUENTA 
$="DESTINO"” THEN TABSUMA=TABSUMA+PESETAS 

8250 IF (NOMBRES$="PASIVO” AND CUENTAS="DRIGEN") OR (NOMBRE$="ACTIVO" AND CUENTAS 
="ODRIGBEN") THEN TABSUMA=TABSUMA-PESETAS 

B260 RETURN 

8400 ” RUTINA grabar 

8410 SUMA=TABSUMA:ORGS$=CTAS:DES$="":CON$="SAL" 

8420 IF CUENTAS="DESTINO” THEN DES$=CTAS$:DRG$="" 

8430 PRINT 81,FECHAS 

8431 PRINT 4i,ORGS 

8432 PRINT 41,DES$ 

8433 PRINT 41,CON$ 

8434 PRINT 1,SUMA 

8440 RETURN 

9000 REM EXEFAAAICIAAI 

9010 REM £ ENTRADA DE DATOS £ 
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9020 REM ERKRERERRERRESIIRIAE 

9030 REM - 

9040 LET DE=O¡LET DS="""LOCATE Y,X:PRINT "_" 

9050 FOR I=1 TO LO-1 

9060 PRINT "." 

9070 NEXT 1 . 

5380 A$=INKEY$:1F A$="" THEN GOTO 9080 

9090 IF ASC(AS)=8 AND LENOS$)>0 THEN LOCATE Y,X-1 ¿PRINT "_."33X=X-L:LET D$=LEFT 
$05,LENOS)-=1) - > 
9100 IF A$="." AND DE=0 THEN LET DE=1:GOTO 9150 
9110 IF A$="-" AND LEN(ODS$)=0 THEN GOTO 9150 

9120 1F ASC(A$)=13 THEN GOTO 9170 

9130 IF A$=" " THEN GOTO 9150 
9140 IF AS)MS DR AS<US THEN GOTO 9080 

9150 DE=DS+AS:LOCATE Y,X:PRINT AS 

9160 IF LENOSI<LO THEN X=X+1:LOCATE Y,X:PRINT "_".GOTO 9080 
9170 RETURN 

9500 REM ESERRKERELERIFERE RL 

9510 REM £ ENTRADA DE FECHA k 

9520 REM ERSEAERARLACACAD 

9530 REM 

9540 XX=X:LOCATE Y,X:PRINT "ESCRIBA LA FECHA dd/mm/aa" 
9545 Y=Y+1 

9550 LOCATE V,X¿PRINT ".. / .. / .." 

9560 X=XX:LO=2:M$="9":W$="0":BDSUB 9000 

9570 IF LEN(DS)<2 THEN 9560 ELSE DD$=D$:DD=VAL (D$) 
9580 IF DD<1 DR DD>31 THEN GOTO 9560 

9590 X=XX+5:BOSUB 9000 

9600 IF LENOM$)<2 THEN 9590 ELSE MMS=D$:MM=VAL (D$) 
9610 IF MM<1 OR MM12 THEN GOTO 9590 

9620 X=XX+10:BOSUB 9000 

9630 AA=VAL (D$):AAS=D$ 

9640 IF AAXBO DR AA>99 THEN GOTO 9620 

9650 FECHA$=DDS+MM$+AA$ 

9660 RETURN 

9800 REM EKKRLEIRRASEAA EL 

9801 REM £ Lectura TABLAS * 

9802 REM ERKKKESLERELLAREER 

9810 OPEN "I",1,"TABLA.CTA" 

9815 OPEN "1",2,"TABLA.DES” 

9820 OPEN "I",3,"TABLA.CTO" 

9825 OPEN "I",4,"TABLA.DTO"” 

9830 I=O:WHILE EDF (1)=0 

9835 I=I+1:INPUT 41,TABCTAS (1) 

9840 WEND:II=1 

9845 FOR I=1 TO IL:INPUT 92,TABDES$U):NEXT 

9850 I=O:WHILE EDF (3)=0 

YEBSS I=I+IsINPUT 83,TABCONS$(D 

9860 WEND:JI=1 
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7865 FOR 1-1 TO JIJ:INPUT M4,TABDCON$(D:NEXT 

7870 CLOSE RI:CLOSE R2:CLOSE WI:CLOSE $4 

7880 RETURN 

20000 AS=INKEYS$:1F A$="" THEN GOTO 20000 

20010 06="SsNn":IF INSTR(O$,A$)=0 THEN 20000 

20020 0$="Ss".I1F INSTR(DS$,A$)=0 THEN CD=0 ELSE CO=1 
20030 RETURN 

21000 REM RUTINA PULSE UNA TECLA 

21005 LOCATE 24,10:PRINT “PULSE UNA TECLA"; 

21010 A$=INPUTS(D:RETURN 
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La aparición de los ordenadores 
personales ha sido seguida por su 
impresionante proliferación, debida al 
abaratamiento de los materiales, lo que 
ha traído consigo el que se vaya 
introduciendo en el hogar, con la 
posibilidad de utilizarlo, tanto para 
distraer los ratos de ocio jugando, como 
para realizar otras aplicaciones de tipo 
práctico. 


Nosotros, en este libro, nos vamos a 


referir al control doméstico y para ello 
utilizaremos un lenguaje sencillo para el 
lector. Al mismo tiempo, a lo largo del 
libro, se van introduciendo, además, 
conceptos básicos de 

contabilidad, que serán 

de utilidad al lector. 


